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991 Program and Hi-Res Memory Conflicts 
006 КАМ Applesoft and Hi-Res 

$18 Random Numbers 

046 Shape Tables 

919 Syntax Error when the Program Is Run 
Øll TRACE and DOS Commands 

012 User Defined Functions and Chain 
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011 SEP 22 81 - 1 
#12 $ЕР 25 81 - 1 
413 OCT 1 81 - 1 
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PROGRAM AND HI-RES MEMORY CONFLICTS 


The easiest way to use Hi-Res graphics with a long Applesoft program is to 
relocate the program. This way you avoid all the problems of program text 
and variables being stored in the Hi-Res buffers. The following programs 
will initialize the Apple's memory and RUN your application program. The 
program will load above the Hi-Res buffer. DOS and CHAIN will continue to 


load programs there until the system is re-booted or a FP command is 
executed. 


For HGR 


10 POKE 193,1 
20 POKE 194,64 


39 POKE 16384,9 
4Q PRINT CHRS (4);"RUN PROGRAM" 


For НСК2 or both pages 


10 POKE 193,1 

20 POKE 194,96 

30 POKE 24576,9 

40 PRINT CHRS (4);"RUN PROGRAM" 
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APPLESOFT^S HI-RES COLLISION COUNTER 


The collision counter in Applesoft”s Hi-Res package is a byte that is 


incremented when a shape is drawn and it crosses a non-black dot on the 
screen. Applesoft does not initialize or use this byte. 


The collision counter could be used to detect when a lunar lander hit a 


mountain by setting the counter to zero there and checking for a non-zero 
value after drawing the lander. It is up to the user to initialize and 
check this byte. 
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HPLOT TO AFTER A DRAW 


The Applesoft DRAW command doesn't leave the internal pointer for the last 
plotted point where the HPLOT TO command can use it. HPLOT TO X,Y will 
draw a line from a random point to X,Y. The following program contains a 
machine language program that will decode the position and set up the HPLOT 
pointers. Then HPLOT TO X,Y will draw from the last plotted point of the 
shape. 


10 FOR J=768 TO 788 

20 READ A 

30 POKE J,A 

40 NEXT J 

50 DATA 32,203,245,166,224,164,225 
690 DATA 165,226,76,17,244 

190 SHLOAD 

116 HGR 

120 HCOLOR=3 

136 SCALE=1 

140 DRAW 1 AT 100,109 

150 CALL 768: REM THIS IS IT! 
169 HPLOT TO 19,16 

170 END 
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HI-RES AND TEXT 


The Apple cannot display normal text on the graphics screen. However, 
characters can be drawn on the HIRES screen, even over existing pictures. 
The HI-RES CHARACTER GENERATOR in the Applesoft Tool Kit is a convenient way 
to create your own character set and output it to the Hi-Res screen. Other 
vendors that offer Hi-Res character generators are lísted in the Vendor 
List, section 9909. 
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DOTTED VERTICAL LINES IN HI-RES 


The Apple HIRES screen cannot display all colors at all locations. This 
causes colored vertical or near vertical lines to appear as dashed lines or 
not appear at all. This effect is explained more thoroughly in the 

Apple II Reference Manual on page 19. 
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RAM APPLESOFT AND HI-RES 


RAM Applesoft (on disk or cassette) is loaded into decimal memory locations 


2048 to 12288. The high resolution graphics screen begins at decimal 
address 8192 and ends at decimal address 16384. Therefore performing an 
HGR statement in a RAM Applesoft program will clear the High Resolution 
graphics page one and also part of Applesoft. The result will be to hang 
the system or drop the Apple into the monitor. In either case you will 
have to reload the RAM Applesoft and reboot the system if you have a disk 
drive. The only way to use Hi-Res graphics is to use HGR2 or to get an 
Applesoft firmware card or a Language Card. 
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HI-RES SCREEN SWAPPING 


It is possible to plot data on one Hi-Res screen while displaying the 

other so that the user doesn’t see the screen being changed. The POKEs 
listed on pages 132 and 133 of the Applesoft Reference Manual control which 
Screen is displayed and location 239 (decimal) controls which screen will 
be plotted on by the HIRES commands. POKE 239,32 will cause Applesoft to 


draw on screen 1 (HGR) and POKE 239,64 will draw to screen 2 (HGR2). 
To draw on Page 1 and display Page 2 Hi-Res 


POKE 236, 32 
РОКЕ -16299, @ 


To draw on Page 2 and display Page 1 Hi-Res 


POKE 239, 64 
POKE -16309, 9 
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USING APPLESOFT SHAPE TABLES FROM DISK 


The following programs were written to make it easier to use Applesoft 
shape tables. The fírst assumes that the shape table has been entered into 
memory the same as the example in the Applesoft reference manual. (It 
doesn^t require that you use the same address, just the proper format.) 


SHAPE LOADER 


The Applesoft SHLOAD statement loads shape tables from cassette tape and 
sets up the proper pointer so that Applesoft cau use it. The following 
program loads the shape table from the disk as a binary file and sets up 
the proper pointer for Applesoft. You can use any file name you choose. 
This routine should be the first thing ín the program since it destroys the 
string variables in the process of loading the shape table. 


1090 INPUT "WHICH SHAPE TABLE TO LOAD ? ";F$ 
110 PRINT CHRS (4);"BLOAD ";Е$;",А$ 0000" 
120 DS = РЕЕК (977) + PEEK (978) * 256 + 3233 
139 HM = PEEK (115) + PEEK (116) * 256 ~ PEEK (DS) - 
PEEK (DS + 1) * 256 
140 PRINT CHRS (4);"BLOAD ";F$;",A";HM 
150  HIMEM: HM 
160 POKE 232,HM - INT (HM / 256) * 256: POKE 233,HM / 256 


(Continued) 
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SHAPE SAVER 


This program saves your shape table on the disk as a binary file for the 
SHAPE LOADER routine to use. You should load this program before getting 
into the monitor and typing in your shape table. The best place to start 
your shape table is at $2009. That leaves lots of room for the shape saver 
and the table. Use the instructions in chapter 9 of the Applesoft 
Reference manual. When you've got it all typed іп and checked, type 3DØG 
to get back into Applesoft and RUN the program. 


1000 REM SHAPE SAVER 

1905 HS = "0123456789ABCDEF" 

1010 TEXT : HOME : VTAB 5 

1020 INPUT "WHAT IS THE STARTING ADDRESS (HEX)?";AS$ 

1939 IF LEN (AS) = D THEN END 

1040 GOSUB 5996 

1050 IF F < Ø THEN 1999 

1060 S= X 

1070 PRINT 

1089 INPUT "WHAT IS THE ENDING ADDRESS (HEX)?";AS 

1990 IF LEN (AS) = f THEN 1000 

1190  GOSUB 59099 

1119 IF F < Ø THEN 1900 

1120 LET E = X 

1130 IFEX = 3 THEN PRINT CHRS (7);"THE END IS LESS THAN THE 
START!": GOSUB 519%: GOTO 1000 


1140 PRINT 

1159 PRINT "WHAT NAME DO YOU WANT TO USE ?" 

1160 INPUT " “AS 

1179 PRINT CHRS (4);"BSAVE ";AS$;",A";S;",L';EE- 5 + 1 
1180 END 


5090 PRINT : PRINT “CONVERTING TO DECIMAL” 

5019 LET F = #:Х = F 

5020 FOR J 1 TO LEN (AS) 

5039 FOR I = 1 TO 16 

5040 IF MIDS (AS,J,1) = MIDS (HS,I,1) THEN X = ХЖ l6 +1 -— 1: 


Е=Е+ 1 
5050 NEXT I,J 
5060 IF F< > LEN (AS) THEN Е = ~ 1:"THAT^S NOT HEX! !!"; 
CHRS (7): GOSUB 5196 
5970 ТЕХ > 2 ^ 16 THEN Е = - 1: PRINT "THAT^S TOO BIG!!!"; 


CHRS (7): GOSUB 5198 
50860 RETURN 
5100 FOR J = 1 TO 10909: NEXT J: RETURN 
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DOS AND HI-RES 


DOS uses two memory locations ($26,$27) that are also used by Applesoft^s 
Hi-Res routines during the HPLOT TO X,Y statement. DOS commands between 
HPLOT TO X,Y statements won't plot properly. The pointer can be saved and 
restored to enable mixing DOS and Hi-Res. The added two lines (25 and 35) 
in the example below demonstrate how to maintain the pointer values. 


This won't work This will work 
1$ D$ = CHRS (4) 10 DS = CHRS (4) 
20 HPLOT 1,2 20 HPLOT 1,2 
=> 25 А = PEEK(38): B = PEEK(39) 
30 PRINT D$;" CATALOG" 39 PRINT DS; CATALOG" 
=> 35 POKE 38,А: POKE 39,B 
40 HPLOT TO 33,44 40 HPLOT TO 33,44 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


= wm up «EEE m my ФЬ te peg дашь ee ey лир eee cs ана ee ee i чән ce аира ЕШЬ ls Выше пиши ee ЧАР ee ee me ee ee ee ee ee ee ee ee ee ee ee ee ee a ee ee ee es ee et i mm 


ЧАНА ФЕЬ чинн cr AED m a cs ee ANE CUN ye mm am ee ARP um m pam re Cum cium cuum ey ee a ee ee ee eee ee ee eee чың: ee es ee ees mn 


HCOLOR= AND HPLOT TO 


HCOLOR immediately followed by a HPLOT TO X,Y will draw a line using the 

previous color. This is because HPLOT TO assumes that the internal color 
mask has already been set up by HPLOT. A HPLOT is required to plot with 

the new color. 
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TRACE AND DOS COMMANDS 


TRACE wont work with DOS commands unless you define DS = CHRS(13) + 


CHRS(4) because DOS expects the control-D to be the first character on a 
line of output and TRACE does not send out a RETURN. 
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USER DEFINED FUNCTIONS AND CHAIN 


User defined functions in Applesoft may cause problems if CHAIN is used. 
When a DEF FN statement is encountered in Applesoft there is an entry made 
in the simple variable table that points to the rest of the function in the 
text of the program. Strange and perhaps fatal things can happen if you 
use a function defined in the previous program without having the same 
image of the function at the same memory locations. 


The easy way around this problem is not to use defined functions or 
re-define all of your defined functions in each of the chained modules. 


First program: Second program: 

5 REM PROGRAM 1 5 REM PROGRAM 2 
19 DEF FN A(X)=X*X 10 DEF FN A(X)-X*X 
20 PRINT FN A(2) 20 PRINT FN A(2) 
30 PRINT CHRS(4);"BLOAD CHAIN,A529" 30 END 


40 CALL 520" PROGRAM 2" 
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DIRECTLY PRINTING THE TEXT SCREEN TO A PRINTER 


The exact contents of the text screen can be sent to a printer with the 
following program. ТЕ uses the VTAB command to find the starting address 
of each line and adds a character counter to index across the screen. This 
can easily included as a subroutine in an application program. 


10 FOR V = 1 TO 24 

29 VTAB V 

30 Р = PEEK (46) + PEEK (41) * 256 
40 FOR Н = f TO 39 

50 PRINT CHRS( PEEK (P+H)); 

60 NEXT H 

70 PRINT 

80 NEXT V 

90 END 


Decreasing the limits of V and H in lines 10 and 40 will limit the program 
to send only part of the screen. 
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DOCUMENTATION AIDS 


It really helps modifying and debugging programs if it is easy to find the 
various subroutines. Try the following tricks to make it easier to see 
what^s going on in your software. 


Use linefeeds (CTRL-J) as the first and last character in the text of your 
REMs. It will make the text of the remark stand out in the listings. Some 
printers will even put the remark at the left margin along with the line 
numbers. 


You can use colons to indent FOR-NEXT loops. It makes them stand out and 
lets you know if you've closed them ali before going on the the next 
routine. 


10 REM 
THIS STANDS OUT 


20 FOR = 1 TO 19 
30 : FORK = 1 TO 19 
40 :: PRINT J * K 

SÓ : NEXT К 

69 NEXT J 
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PEEKS, POKES, AND CALLS 


The PEEK, POKE, and CALL statements in Applesoft all refer to machine 
language programs or data being used from a BASIC program. Often their use 
cannot be explained because a machine language program is loaded with or 
generated from the specific BASIC program. There is a good description of 
the useful routines in the monitor in THE APPLE MONITOR PEELED (Apple 
product # A2L@#13). There is also a list of general purpose PEEKs, POKEs, 
and CALLs in the Applesoft II Reference Manual starting on page 128 and in 
the Apple II Reference Manual. 
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APPLESOFT INTERNAL PROGRAM STORAGE FORMAT 


Applesoft stores its programs one line at a time normally starting at $801 
and ascending in memory by line number. Each line is stored in this 
format: 


The first item 15 a two byte pointer to the absolute address of the 
beginning of the next line. The least significant byte is first. 


The second field is the two byte integer representation of the line number 
for that line. The least significant byte is first. 


The next byte is a token that stands for the first Applesoft keyword. If 
the lines starts with "A = 1" then the ASCII for the variable name is 
first. The rest of the command will follow with keywords and symbols 
reduced to one byte tokens and ASCII text unmodified. 


The next byte will be either a $06 if this is the end of the line or S3A if 
this is a multi-statement line. If this is a multi-statement line then the 
next byte will be the token or variable name as in the previous item. 


There is a list of Applesoft/s tokens on page 121 of the Applesoft 
Reference manual. 


S8xx 
00 01 02 $03 04 95 06 07 08 09 PA PB PC ØD PE 


00 ØD 08 ØA 00 97 ЗА BA 22 48 49 22 DO 0% #0 


E LINK LINE # H И Н 1 Е LINK 
О О 
L L 


о 
ar AH и I 


If the link field for a line is #0 0% then Applesoft considers it the last 
line in the program while running or listing. The SAVE command uses a 
different pointer for the end of the program. SAF,BÓ normally points to 
the high byte of the line number of the line beyond the last line. 
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DISABLING RESET 


The Auto Start Monítor ROM allows the application program to retaín control 
when the RESET key is pressed. The easiest way to take advantage of this 
is to have reset re-run the Applesoft program. 


10 POKE 1910,102 : POKE 1911,213 : CALL-1169 


30 REM 

30 REM RESET WILL RE-RUN THE PROGRAM NOW 
49 REM 

108 POKE 1M10,191: POKE 1911,157: CALL -1169 

110 REM 

120 REM THIS IS BACK TO NORMAL 


TRAPPING RESET 


A slightly more sophisticated method is to treat RESET as an error and 
vector it to an ONERR routine. Note: this is untested... 


300:20 EA 93 JSR SWAP 
303:4A2 5E LDX #5E (an unused error code) 
305:4С 12 Då JMP ERROR 


3F2:9 3 NFBOFG 


This program treats a RESET as a normal Applesoft error. Use the RESUME or 
CALL -3288: GOTO... to transfer control within your Applesoft program. 
This routine will hang or give strange results if the user hit reset 
repeatedly. Again, be sure to restore the RESET vector at the end of the 
program. 
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AANDOM NUMBERS 


The reason that the random numbers in the first program to be run follow 
the same sequence is that neither DOS nor Applesoft initialize Applesoft's 
random number seed. This seed is stored in locations $C9 to SCD. Whatever 
condition your memory comes up in will determine what the random number 
sequence will be. 


The Applesoft random number generator, like all such routines, is only a 
pseudo-random generator, and non-random patterns will eventually occur. 

The frequency of repetition of these patterns will vary from program to 
program. Proper re-seedíng of the random number generator during a program 
will help prevent the appearance of small repeating sequences. Here are 
two suggestions: 


1. Use the monitors random seed at locations 78 and 79 to 
initialize Applesoft's random number seed. The monitor^s seed 
is constantiy being incremented while waiting for a key to be 
pressed. This will start you on one of 65536 different 
sequences. 


10 X = RND (-PEEK (78) - PEEK (79) * 256) 
2. The random sequence can be lengthened by re-seeding the 


generator occasionally within the application program. 
Add the statement X = RND (-RND (1)). 


Please note that no method will completely eliminate patterns in the random 
numbers generated, but we can lengthen the sequences until they aren’t 
recognizable. 


(Continued) 
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The algorithm that Applesoft uses is: 


Multiply the random seed by 11879546.4 

Add the result and 3.92767778 E-$8 

Swap the most and least significaat bytes of the result 
Force the exponent into the Й..1 range 


Here is what effect this has on a number (1711 swap the most and least 
significant two decimal digits for this example instead of bytes): 


9.5000990909 
* 11879546.4 
5929773,2 
+ 0.9000990392767778 
5929773.2 (the rest is lost) 
== ae swap "bytes" 
3229775.9 
0.32297759 force value between В and 1 
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SYNTAX ERROR WHEN THE PROGRAM IS RUN 


Applesoft requires that the first byte in the program storage area is а 
zero. Some machine language programs don't leave a zero there and 
Applesoft may react strangely. Here’s how to initialize that byte, even 
if the program memory pointer has been changed. 


POKE PEEK (193) + PEEK (194) * 256,0 
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VARIABLE CONFLICTS 


Only the first two characters of an Applesoft variable name are 
significant.  That^s why the variables BACK and BALL are considered to be 


the same variable BA. This can cause enormous problems if you don^t keep 
track of what variable names you are using. 
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NUMERIC COMPARISON PROBLEMS 


When two numbers print as equal but an IF statement doesn’t think that they 
are equal, then the least significant bits in the internal binary storage 
format of the numbers are probably different.  Applesoft' s PRINT statement 
will truncate a number that is extremely close to being an integer. For 
example, 3^2 and 3*3 will both print as 9 but they won" t compare as equal. 
Printing 3^2 - 3*3 will result in 3.7252903E99 and the expression (372 = 
3x3) will be false. 


There is a formula to round Applesoft real numbers to a specified number of 
decimal places on page 18 of the Applesoft Reference manual and а program 
to limit the number of digits to the right of the decimal point on page 22 
of the same manual. 
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GARBAGE COLLECTION 


If your Applesoft program sometimes mysteriously stops for up to tive 
minutes in the middle of a program and then just as mysteriously resumes as 
if nothing had happened, then read on. When Applesoft re-assigns a string 
value it assigns the new value just below the last one. Soon all of free 
memory is full of old strings that aren't being used. When there^s no room 
for one more string then Applesoft sorts through all its strings, one at à 
time, and throws out any unused ones. This is called Garbage Collection 
and it can last up to five minutes depending on how much memory is 
available and how many string variables there are. The more string 


variables there are the longer it will take. Applesoft gives no warning of 
garbage collection, it just does it. And there is no way to prevent it. 


Applesoft also does garbage collection when it encounters the FRE (Ø) 
function, and this gives us a tool for at least warning the user that the 


computer will be busy for a while. Applesoft checks the value of PEEK 
(112) ~ PEEK (110) and when it is less than one, Applesoft does its 
garbage collecting. So we can check that value to decide when to print a 
"DON^T WORRY" message and then use А = FRE(P) to force garbage collection. 
Here is an example líne that you could use in you program. 


1009 IF PEEK (112) ~ PEEK (119) < 2 THEN PRINT "STANDBY": 
А = ЕКЕ(0) 
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OVERFLOW ERROR IN FIRST LINE OF PROGRAM 


If the first number in the first line of the first program run after 
booting DOS is a negative number then Applesoft might return an OVERFLOW 
ERROR. This usually occurs when the first statement is "CALL -936" which 


can be replaced with "HOME". 
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FRE() 


Sometimes PRINT FRE(9) prints a negative number. This will only happen in a | 
48K Apple and is caused by the way Applesoft handles integer numbers. Any | 
number greater than 32767 will appear to have 65536 subtracted from it. So | 
just add 65536 to the value returned. This can be done from a program like | 
this; | 

| 

| 


1000 PRINT FRE (Ø) - 65536 * (FRE (Ø) < 9) 


PRINT FRE(À) can cause the Apple to hang if it is done in command mode 
immediately after loading a program from disk or using Applesoft RENUMBER 
because the variable pointers aren’t all reset properly. Typing CLEAR 
before the PRINT FRE(U) will return the expected results. 


The following program was written to check the memory use for string 
variables. However, it doesn't give the expected results. 


LØ DIM AS(169) 

2$ Bs = "ABC" 

30 FOR I = 1 TO 199 

+) AS(1) = BS 

5) PRINT FRE (#0) + 65536 
оф NEXT I 


Since BS is assigned to a string constant in line 20 all that the 
assignment in line 40 does is sets the pointer for AS(I) to the same as the 
pointer for BS. This causes the PRINT statement in line 50 to always show 
-he same number. If we change line 40 to read: 


49 AS(I) = BS + "D" 
the program will start using up memory on each assignment. The reason is 


that the concatenation will cause a new string to be created in the free 
memory space each time the new line 40 is executed. 
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OUT OF MEMORY ERRORS 


Sooner or later everyone sees "ERROR OUT OF MEMORY". However there are 

two ways to run out of memory in Applesoft. The most common is to have a 
program that is too big or uses too many variables. The only solution to 
that problem is to trim down the program, keep the data on a disk, or chain 
the program in from the disk in segments. 


The less common cause is stack overflow. This is easy to spot because 
after getting the OUT OF MEMORY error, PRINT FRE(9) tells you that there is 
still free memory. The problem is that Applesoft uses the 6502 stack to 
save its recursive subroutine calls and the stack is a limited resource. 
Here are some causes 


Too many FOR-NEXT loops 

Too many GOSUBs 

Excessively complex mathematical or string functions 
GOSUBs with no RETURN 

. Improper recovery in ONERK GOTO routines 

. CALLs or interrupts that don^t restore the stack properly 


* 


TD л LP LG to = 


These effects are cumulative and you might be affected by more than just 
one. One through four are inherent in your program structure. If your 
program is cleanly structured then you probably won^t suffer from these. 


If you are using ONERR GOTO, I suggest you carefully read pages 81 and 82 
and look at page 136 of the Applesoft Reference manual. There are two 
correct ways to leave the ONERR routine. You can use RESUME so that 
Applesoft can take care of the stack and re-execute the statement that 
caused the error. But if you don't use RESUME, you must use the stack 
recovery routine on pages 82 and 136 (the example on page 136 is easier to 
use) before you do a GOTO to any other part of the program. The routine on 
page 136 can be replaced with CALL -3288 and no POKEs if you cau insure 
that you will be using ROM Appiesoft. 


When Applesoft executes a CALL, it does a 6502 JSR to the specified 
address. ТЕ”з up to you to leave the stack the way you found it. Likewise 
any routines to handle interrupts from a peripheral card must remove any 
bytes pushed on the stack and maintain the 6502^s internal registers. 


A very complex program might run into one of the first three problems as a 
part of normal operation. There is a routine in Applesoft that clears the 
stack. CALL 54915 will clear the stack without clearing the variables. It 
wipes out all pending FOR-NEXT loops, GOSUBs, and formulas. This is one 
way to implement a program controlled restart. Beware, this is no 
substitute for a well structured program. 
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FLOATING POINT NUMERICS PACKAGE 


Sometimes Applesoft’s math package doesn't give the exact answer that you 
expect. That is caused by the fact that Applesoft does all of its 
calculations in а 32 bit binary floating point format and there are no exact 
equivalents to most numbers. Also, Applesoft uses natural logarithms to 
calculate many of its trancendental functions, which also adds small errors 
to the results. 


There is a formula to round Applesoft real numbers on page 18 of the 


Applesoft Reference manual and a program to limit the number of digits to 
the right of the decimal point on page 22. 
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VTAB NOTES 


The VTAB statement moves the cursor to an absolute vertical position. it 
completely ignores the current text window. A VIAB to a line above tne 
text window will start writing as if the window were the whole screen 


until it scrolls down to the window. After it scrolls into the window, it 
will stay there and the information above the window won't be scrolled. à 


VTAB below the window will cause writing only on the line that the cursor 
is on and normal scrolling within the window with each carriage return. 
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LOGARITHMS 


In Applesoft, LOG (X) returns the natural logarithm of X. The logarithm 
base ten of a number can be calculated by 


Logarithm base 10 = LOG (X) / LOG (10) 
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CASSETTE PROGRAM LOADING ERRORS 


Applesoft interacts with the Auto Start so that if au ERR message is 
generated while loading a program from cassette, the Apple will hang. It 
will ignore all commands including RESET. There are two ways to regain 
control. First turn the Apple off and back on. Second, rewind the 
cassette and play it into the Apple some more until it returns to command 
mode. 
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VAL (AS) PROBLEMS 


Applesoft in a non-disk Apple doesn't initialize its memory properly. The 
result is that the following program doesn^t give the desired result. 


190 GET AS 

116 PRINT AS, VAL (A$) 
If you input "1" the answer will be “1, 1.1111111E16". А HIMEM: 
statement will reset the poínter. 

16K HIMEM: 16384 

32K HIMEM: 32768 

48K HIMEM: 49152 
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INTERNALS - INTRODUCTION 


The following six notes are a guide for the 6592 machine language 
programmer who wants to take advantage of the various subroutines in the 
Applesoft ROM. The information was first published in The Apple Orchard 
for March 1980. The addresses given assume that the user has an Apple II 
Plus, an Applesoft firmware card, or Applesoft loaded into a Language Card. 
This data is meant for the experienced programmer, NOT THE BEGINNER. 
Consult your Applesoft Reference manual for more information. 


Take special note of CHRGET. It is the heart of Applesoft. When Applesoft 
wants the next character of an instruction it points TXTPTR at the program 
or the input buffer and JSRs to CHRGET. When Applesoft READs DATA, TXTPTR 
is temporarily set to the last used DATA statement. 


ABBREVIATIONS 


msb most significant bit or byte 
lsb least significant bit or byte 
eol end of line token ($99) 


the 6502 accumulator 

the 6502 X register 

the 6502 Y register 

the zero flag of the 6502 status register 
the carry flag of the 6502 status register 


CY I» pu e 


A,X is a 16 bit number where A has the msb and X the lsb. 


(Y,A) is the number or string whose address is in Y and A with the 
msb in Y and the lsb in A. 


FAC the floating point accumulator 
ARG the ARGument register 
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INTERNALS - TXTPTR ROUTINES 


CHRGET ОВ 


Increment TXTPTR and use CHRGOT to get the character TXTPTR now points at. 


CHRGOT 09587 


Load A from TXTPTR and set certain 6502 status flags. X and Y are not 
changed. On exit: 


A = the character currently pointed at by TXIPTR 


7 is set if A is ":" or eol (S3A or $00) 
C is clear if А is an ASCII number("9" to "9"). 


LINGET РАЙС 


Read а line number (integer O to 63999) from TXTPTR into LINNUM. LINGET 
assumes that the 6502 registers and A have been set up by the JSR to CHRGET 
that fetched the first digit.  LINGET normally exits through CHARGET which 
fetches the character after the last digit. If the number is greater than 
63999 then LINGET exits via SYNTAX ERROR.  LINNUM is zero if there is no 
number at TXTPTR. 


GTBYTC E6F5 


JSR to CHRGET to gobble a character, evaluates the formula at TXTPTR, and 
returns a single byte integer in X and FACLO. Оп entry TXTPTR points to 
the first character of the formula. GTBYTC normally exits through CHRGET. 
If FAC is greater than 255 or less than Ø then it exits through ILLEGAL 
QUANTITY ERROR. 


GETBYT E6F8 


Evaluates the formula at TXTPTR and returns a single byte integer in X and 
FACLO. On entry TXTPTR points to the first character of the formula. 
GETBYT normally exits through CHRGET. ТЕ FAC is greater than 255 or less 
than Ø then it exits through ILLEGAL QUANTITY ERROR. 


PLOTFNS FLES 

Get two LORES plotting coordinates (#-47,0-47) separated by a comma from 

TXIPTR. Оп entry TXTPTR points to the first character of the formula for 
the first number. PLOTFNS puts the first number in FIRST and the second 

number in H2 and V2. 


(Continued) 
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ЦЕМ F6B9 


Get HIRES plotting coordinates (0-279,0-191) from TXTPTR. On entry TXIPTR 
points to the first character of the formula for the first number.  HFNS 
leaves the 6502 registers set up for HPOSN. On exit: 


А = vertical coordinate 
X isb of horizontal coordinate 
Y msb of vertical coordinate 


K 
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INTERNALS - FLOATING POINT MATH PACKAGE 


Applesoft/s floating point package provides a 9 digit scientific package 
for evaluating numeric equations. It supports trigonometric functions with 
arguments in radians and exponents and logarithms to base e. 


ABBREVIATIONS 
msb most significant bit or byte 


lsb least significant bit or byte 
eol end of line token (500) 


A the 6502 accumulator 

X the 6502 X register 

Y the 6502 У register 

Z the zero flag of the 6502 status register 
С the carry flag of the 6502 status register 


A,X is a 16 bit number where A has the msb and X the 156. 


(Y,A) is the number or string whose address is in Y and A with the 
msb in Y and the 1sb in A. 


FAC the floating point accumulator 
ARG the ARGument register 
(Continued) 
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REAL NUMBER FORMAT 


This is the number format used throughout Applesoft: The exponent is a 
single byte signed number (EXP) in excess $80 form (the signed value has 
58% added to it). The mantissa is 4 bytes (HO,MOH,MO,LO). The binary 
point is assumed to be to the right of the most significant bit. Since in 
binary floating point notatíon the msb is always l, the numbers sign is 
kept there when the number is stored in packed form in memory. While in 
the math package the sign is kept in a separate byte (SGN) where only bit 7 
is significant. If the exponent is zero then the number is zero although 
the mantissa isn't necessarily zero. 


Examples: 
EXP HO MOh MO LO SGN 
Packed format 
-1@ 84 Ad 99 p 0 
19 84 29 p PPD PP 
FAC format 
-19 84 AQ DB pp 00 ЕЕ 
19 84 AD PB 00 pø AD 


Arithmetic routine calling conventions for single argument functions (SGN, 
ABS, or INT for example): 


On entry the argument is in the FAC. 
On exit the result is in the FAC. 


Arithmetic routine calling conventions for two argument functions (FADD and 
FSUB for example): 


On entry the first argument is in the ARC. 


On entry the second argument is in the FAC. 
On exit the result is in the FAC. 


(Continued) 
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FLOATING POINT RECISTERS 


NOTE: The TEMP locations may be used for other things when not being used 
by the floating point math package. 


FAC ARG TEMPI TEMP2 ТЕМРЗ RND 
EAP 9D A5 93 98 8A c9 


HO 9E Аб 94 99 ЗВ СА 
МОН ЗЕ А7 95 9A 8C CB 
“0 AQ А8 96 9B 8D СС 
LO AL AQ 97 9C 8E CD 
SGN A2 АА (packed format) 


FLOATING POINT CONSTANTS 


Ihe following addresses point to useful numbers packed and suitable for use 
bv most of the arithimetic routines including CONUPK and MOVMF. 


RND $0С9 
-32768 EFE 
i E913 
SUR (1/2) E92D 
SUR (2) E932 
-1/2 E937 
EX 35 E93C 
10 EAS@ 
17000000000 Е014 
142 EE64 
LOG (2) base e EEDB 
01/2 5063 
oi*2 FÜGB 
L6 Е@7@ 


FLOATING POINT REGISTER MOVE ROUTINES 
MOV Eo EAF9 


Move the number in memory pointed to by Y,A into FAC. On exit A and Z 
reflect FACEXP. 


MOVE EBLE 
Pack FAC and move it into temporary register 2. On exit A and Z reflect 
FACEXP. 
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MOVLF EB21 
Pack FAC and move it into temporary register 1. On exit A and Z reflect 
FACEXP. 


MOVML EB23 
Pack FAC and move it into zero page area starting at X. On exit A and 2 
reflect FACEXP. 


MOV MF EB2B 
Pack FAC and move it into memory pointed to by Y,X. On exit А and 2 
reflect FACEXP. 


MOVFA EB53 
Move АВС into FAC. Оп exit А and Z reflect FACEXP. 


MOVAF EB63 
Move FAC into ARG. Оп exit А and 2 reflect FACEXP. 


CONUPK BYES 
Load АВС from memory pointed to by Y,A. On exit A and Z reflect FACEXP. 
SUMMARY OF MOVES: 

FAC => (Y,A) EB2B МОУМЕ 

РАС => (9,Х) EB23 MOV ML 

FAC => TEMPI ЕВ21 MOVIF 

FAC => TEMP2 EBLE MOV2F 

FAC => ARG EB63 MOVAF 


ARG => FAC EB53 MOVFA 


(Y,A) => FAC  EAF9 MOVFM 
(Y,A) => АВС  E9E3 CONUPK 
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FLOATING POINT OPERATORS 


The following routines require that A and Z reflect FACEXP. Most FAC move 
routines set up А and 7 but a LDA $90 will insure the proper values. 


FALLI E977 
Multiply the FAC by the number in memory pointed to by Y,A. 


EMLETT ESOS 
Multipy FAC and АВС. On entry А and Z must reflect РАСЕХР, 


FDIV EA66 
Divide the number in memory pointed to by Y,A by FAC. 


POLY TL LADO 
Divide ARG bv FAC. On entry А and Z must reflect FACEXP. 
FADD EFE 


Add the number in memory pointed to by Y,A to FAC. 


FADDT ЕСІ 
Add FAC and ARG. On entry A and Z must reflect FACEXP. 


FSUB E7A7 
Subtract FAC trom the number in memory pointed to by Y,A. 


FSUBI E/AA 
Subtract FAC from ARG, On entry A and Z must reflect ГАСЕХР. 


TRANCENDENTAL OPERATORS 


FPWRT EE97 
Raise ARG to the FAC power. On entry А and Z must reflect the value of 


FACEXP. 


SQR EE8D 
Takes the square root of FAC 
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LOG E941 
Log base e of FAC 


EXP EFQ9 
Raise e to the FAC power 


COS EFEA 
Returns the cosine of the FAC in radians. 


STN EFFI 
Returns the sine of the FAC in radians. 


TAN FO3A 
Returns the tangent of the FAC in radians. 


ATN FOOSE 
Returns the inverse-tangent of the FAC. The result is in radians. 


OTHER OPERATORS 


SGN =B9P 
Modifies the value of the FAC depending on its value on entry. On exit: 


FAC = 1 if FAC was greater than f 

FAC = if FAC was equal to В 

FAC = -1 if FAC was less than f 
ABS EbAF 


Absolute value of FAC. If FAC is less than 0 then РАС = -РАС. 


INT ЕС23 
Greatest integer value of FAC. Uses GINT and floats the result. 


RND EFAE 
Form a pseudo-random number in FAC and update RND at PPC9. 
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SIGN EB82 
Set A according to the value of FAC. On exit: 


А = 1 if FAC is positive 

А = if FAC = f 

A = FF if FAC is negative 
FCOMP EBBZ 


Compare FAC and a packed number in memory pointed to by Y,A. On exit: 


А = | if (Y,A) < FAC 
А = if (Y,À) = FAC 
А = FF if (Y,A) > FAC 

NEGOP EED® 

FAC = -FAC 

FADDH E7 A 


Add 1/2 to FAC 


DIV19 EA55 
Divide FAC by 10. Returns positive numbers only. 


MUL1® EA39 
Multiply FAC by 19. Works for both positive and negative numbers. 


LOWER LEVEL INTERFACE ROUTINES 


FOUT ) рза) 


Creates an ASCII string in FBUFFR equivalent to the value of FAC. On exit 
Y,A points to the string. The string ends in an ASCII null. FAC is 
scrambled. Use STROUT to then print the number. 


SNGFLT E391 
Convert the unsigned number in Y to a floating point number in FAC. 


GIVAYF E2F2 
Convert the unsigned number in Y,A to a floating point number in FAC. 
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FLOAT EB93 
Convert the signed number in А to a floating point number in FAC. 


CONINT E6FB 

Convert FAC into a single byte integer in X and FACLO. Normally exits 
through CHRGET. ТЕ FAC is greater than 255 or less than В then CONINT 
exits via ILLEGAL QUANTITY ERROR. 


AYINT Е10С 
If FAC is less than +32767 and greater than -32767 then execute QINT. 
Otherwise AYINT exits via ILLEGAL QUANTITY ERROR. 


QINT EBF2 

Quick greatest integer function. Leaves INT(FAC) in FACHO,MO,LO signed. 

QINT assumes that the absolute value of the FAC is less than 8388608. 
2°23rd power) 


GETAD E32 

Convert the number in FAC into a 2 byte, unsigned integer in LINNUM. If 
FAC is greater than 65535 or less than -65535 then GETADR exits via ILLEGAL 
QUANTITY ERROR. 


GETNUM E746 

Fetch a 2 byte number, a comma, and an unsigned, single byte number from 
IXTPTR. The first number is stored in LINNUM and the second is returned in 
the X register. Оп entry TXTPTR points to the first character of the 
formula for the first number. Uses FRNUM, GETADR, CHKCOM, GETBYT. 


COMBYTE E74C 
Check for a comma and fetch an unsigned, single byte number. The number is 
returned in X. On entry TXTPTR points to the comma. Uses CHKCOM, СЕТВҮТ. 
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FRMEVL DD7B 

Evaluate the formula at TXTPTR using CHRGET and leave the 

result in FAC. On entry TXTPTR points to the first character of the 
formula. On exit TXTPTR points to the terminator, but A does not contain 
the terminator. А temporary result on the stack has the following format: 


The address of the operator routine. 
The floating point temporary result. 
The precedence of the operator. 


This is the main subroutine for the commands that use formulas and works 
for both strings and numbers. If the formula is a string literal FRMEVL 
gobbles the opening quote and executes STRLIT and ST2TXT. 


FRMNUM 206 / 

Evaluate the formula at ТХТРТВ, put it in FAC, and make sure the result is 
numeric. On entry TXTPTR points to the first character of the formula. 
FRMNUM exits through TYPE MISMATCH ERROR if the result is a string. 


FIN EC4A 

Input a floating point number into FAC from CHRGET. FIN assumes that the 
6502 registers and A have been set up by the CHRGET that fetched the first 
digit. FIN only operates on numeric constants, not formulas. 
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INTERNALS - STRING UTILITIES 


In Applesoft strings have two parts: the descriptor and the ASCII string. 
A string descriptor contains the length of the string and the address of 
its first character. See page 137 of the Applesoft Reference Manual for 
how these are used in normal variable storage. Through most of the 
routines the descriptor is left in memory and a two byte pointer to the 
descriptor is kept in the FAC. The pointer is the address of the : 
descriptor. The actual string could be anywhere in memory. In a program he 
19 AS = "HI" will leave a descriptor pointing into the program text. 


€ 


SIRINI E3D5 


Get space for creation of a string whose descriptor is pointed at by 
FACMO,FACLO and create a descriptor for it in DSCTMP. On entry А = length 
of the string and FACMO,FACLO point to the string descriptor. STRINI uses 
GETSPA which will force garbage collection if there isn’t enough room. 
GETSPA will exit with an "OUT OF MEMORY ERROR" if garbage collection can't 
make enough room. GETSPA moves FRESPC and FRETOP down enough to store the 
string. STRINI returns with the descriptor to the new string in DSCTMP and 
the original pointer in DSCPNT. 


SIRSPA E3DD 


Get space for the creation of a string that is А bytes long and create a 


descriptor for it in DSCTMP. STRSPA uses GETSPA which will force garbage 
collection if there isn’t enough room. GETSPA will exit with an "QUT OF 
MEMORY ERROR" if garbage collection can^t make enough room. GETSPA moves 
FRESPC and FRETOP down enough to store the string. Returns with A 
unchanged and the new descriptor in DCSTMP. 


GETSPT DA7B 
GETSPT moves the descriptor pointed at by FACMO,FACLO into the memory 


pointed to by FORPNT. GETSPT also moves the text of the string up to 
FRETOP if it isn't in the program text. GETSPT will free up the string if 


it was a string temporary. GETSPT uses GETSPA and may cause garbage 
collection or an "OUT OF MEMORY ERROR’. 


MOVINS Е504 


Move a string whose descriptor is pointed to by STRNGl to memory pointed to 
by FRESPA. 
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MOVSTR E5E2 


Move the string pointed to by Y,X with a length of A to memory pointed to 
by FRESPA. 


STRTXT 0Е81 


Build a temporary descriptor for а string literal whose first character is 
pointed to by TXTPTR plus C and ends with a quote. The resulting temporary 
descriptor is pointed to by FACMO,FACLO. Leading quotes should be skipped 
before calling STRLIT. On exit the character after the string literal is 
pointed to by STRNG2. 


STRLIT E3E7 


Build a temporary descriptor for a string literal whose first character is 
pointed to by Y,A and ends with a quote. The resulting temporary 
descriptor is pointed to by FACMO,FACLO. Leading quotes should be Skipped 
before calling STRLIT. On exit the character after the string literal is 
pointed to by STRNG2. 


STRLT2 БЕЗЕП 


Take a string literal whose first character is pointed to by Ү,А and build 
a temporary descriptor for it pointed to by FACMO,FACLO. Characters other 
than zero that terminate the string should be saved in CHARAC and ENDCHR. 
Leading quotes should be skipped before calling STRLT2. On exit the 
character after the string literal is pointed to by STRNG2. 


PUTNEW E4 ZA 


Move the descriptor in DSCTMP to a temporary descriptor, put a pointer to 
the descriptor in FACMO,FACLO, and flag the result as a string. 


GETSPA E452 


Get A bytes of memory below HIMEM for a string. GETSPA will force garbage 
collection if there isn^t enough room. GETSPA will exit with an "OUT OF 
MEMORY ERROR" if garbage collection can't make enough room. Moves FRESPC 
and FRETOP down enough to store the string. Оп entry А = number of 
characters. Returns with А unchanged and pointer to the space in FRESPC, 
FRETOP, and Y,X. 
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FRESTR ESFD > 


Make sure that the last FAC result was a string and free up the temporary 
string result. A check is made to see if the descriptor is a temporary one 
allocated by PUTNEW. On exit the address of the string is in INDEX and 
Y,X. The length of the string is in A. Uses FRETMP. 


FREFAC E699 


Free up the temporary string pointed to by FACMO,FACLO. А check is made to 
see if the descriptor is a temporary one allocated by PUTNEW. On exit the 

address of the string is in INDEX and Y,X. The length of the string is in 

А. Uses FRETMP. 


FRETMP E604 


Free up a temporary string. On entry the pointer to the descriptor is in 

Y a. А check is made to see if the descriptor is a temporary one allocated 
by PUTNEW. If so, the temporary is freed up by updating TEMPPT. If a temp 
is freed up a further check is made to see if the string is the lowest in 
memory. If so, that area of memory is freed up by updating FRETOP. On 
exit the address of the string is in INDEX and Y,X. The length of the 
string is in aA. 


FRETMS E635 
Free the temporary descriptor without freeing up the string. Оп entry Y,À 


point to the descriptor to be freed. Оп exit 2 is set if anything was 
freed. 
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INTERNALS - MISCELLANEOUS ROUTINES ; > SEES e и 


PTRGET DFE3 


Read a variable name from CHRGET\and find it in memory. On entry TXTPTR 
points to the first character of the variable mame. On exit the address to ‘ 
the value of the variable is in VARPNT and Y,A. If PTRGET can’t find a | 
simple variable it creates one. If it can't find an array it creates one | 
dimensioned from @ to 1@ and sets all elements equal to zero. d 


GETARYPT F7D9 


Read a variable name from CHRGET and find it in memory. On entry TXTPTR 
points to the first character of the variable name. This routine leaves 
LOWIR pointing to the name of the variable array. If the array can't be 
found the result is an OUT OF DATA ERROR. 


FNDLIN 061А 


Searches the program for the line whose number is in LINNUM. On exit: 


C set LOWIR points to the link field of the desired line. 
С clear then not found. LOWIR points to the next higher line. 


DATA D995 

Move ТХТРТЕ to the end of the statement. Looks for the ":" or eol (Ø). 
DATAN DIA3 

Calculate the offset in Y from TXTPTR to the next ":" or eol (0). 

REMN D9A6 


Calculate the offset in Y from TXTPTR to the next eol (9). 


ADDON p998 


Add Y to TXTPTR. 


SCRTCH D64B 
The "NEW" command. Clears the program, variables, and stack. 
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OUTSPC DB57 


Print a space. 


OUTQST DBSA 


Print a question mark. 


t 


! INPRT ED19 


=——-.- 


— 


Print " IN “ and the current line number from CURLIN. Uses LINPRT. 


LINPRT ED24 | n ы. ЧЫ а ge 
Prints the 2 byte unsigned number in X,A. бХ " M Е 
л” og г ; м. i 
ae Е a AS i, |. _ " 
PRNTFAC SULE JP C Ee 
Prints the current value of FAC. FAC is destroyed. Uses FOUT and STROUT. 
2 t Sta 4 
TY / 
i9 y me 2 
ay e oe "S =. m. 07 | a | E | , aa 
е à "NECS Ro Em o 
"c » Э : | p 
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CONT 0898 


Moves OLDTXT and OLDLIN into TXTPTR and CURLIN. 


NEWSTT 0702 


Execute а new statement. \Оп entry TXTPTR points to the : preceding the 
statement or the zero at the end of the previous ‘line. Use NEWSTT to 
restart the program with CONT. THIS ROUTINE DOES NOT RETURN. 

RUN D566 


Run the program in memory. THIS ROUTINE DOES NOT RETURN. 


GOTO D93E 

Uses LINGET and FNDLIN to update TXTPTR. GOTO assumes that the 6592 
registers and А have been set up by the CHRGET that fetched the first 
digit. 

LET DA46 


Uses CHRGET to get address of the variable, “=", evaluate the formula, and 
store it. On entry TXTPTR points to the first character of the variable 
name. 
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CLEARC D66C 


The "CLEAR" command. Clears the variables and stack. 


STKINI D683 


Clears the stack. 


RESTOR D849 


Sets the DATA pointer, DATPTR, to the beginning of the program. 


STXIPT D697 


Set TXTPTR to the beginning of the program. 


BLTU D393 
Block transfer makes room by moving everything forward. On entry: 


Y,A and HIGHDS = destination of high address + 1 
LOWTR = lowest address to be moved 
HIGHTR = highest address to be moved + 1 


Оп exit: 

LOWTR is unchanged 

HIGHTR = LOWTR ~ S199 

HIGHDS = lowest address transfered - $199 
REASON D3E3 


Makes sure there/^s enough room in memory for another variable. Checks to 
be sure that the address Y,A is less than FRETOP. May cause garbage 
collection. Causes "OUT OF MEMORY ERROR" if there^s no room. 

GARBAG E484 


Move all currently used strings up in memory as far as possible. This 
maximizes the free memory area for more strings or numeric variables. 
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INTERNALS - HI-RES GRAPHICS ROUTINES 


NOTE: Regardless of which screen is being displayed, HPAG (location SEO) 
determines which screen is drawn on. ($20 for HGR, S49 for HGR2) 


HGR2 F3D8 


Initialize and clear page 2 Hi-Res. 


HGR F3E2 


Initialize and clear page l Hi-Res. 


HCLR F3F2 


Clear the current Hi-Res screen to black. 


BKGND F3F6 
Clear the current Hi-Res screen to last plotted color. 


TN . ê 
ss. €" 1 
І boe 1 _ 
nen $ ‘ LS А 


(424, 4328 К“: вокл N 
HPOSN Fall 4 
d $56 
Positions the Hi-Res cursor without plotting.  HPAG determines which page 
the cursor is pointed at. On entry: 
M | 


7 ме 
Y,x 38° 
..7 Е 


Horizontal = 
= А27 Е 


Vertical 


HP LOT F457 


Call HPOSN then try to plot a dot at the Hi-Res cursor’s position. The dot 
may not be plotted if plotting non-white at a complementary color X 
coordinate. 


HLIN F53A 


Draws a line from the last plotted point or line destination to the 
coordinate in the 6502 registers. On entry: 


Horizontal 
Vertical 


Х,А 
Y 
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INTERNALS - ERROR PROCESSOR ROUTINES 


ERROR D412 

Checks ERRFLG and jumps to HNDLERR if ONERR is active. Otherwise it prints 
<er> "?" error message pointed to by X> " ERROR". If this is during 
program execution then it also prints " IN " and the CURLIN. 

HANDLERR F2E9 

Saves CURLIN in ERRLIN, TXTPTR in ERRPOS, X in ERRNUM, and REMSTK in 
ERRSTK. X contains the error code. See the Applesoft Reference Manual 
page 136 for the value of X for a given error. 

RESUME F317 

Restores CURLIN from ERRLIN and TXTPTR from ERRPOS and transfers ERRSTK 
into the 6502 stack pointer. 

ISCNTC 0858 

Checks the Apple keyboard for а control-C ($83). Executes the BREAK 
routine if there is a control-C. 

CHKNUM DD6A 


Make sure FAC is numeric. See CHKVAL. 


CHKSTR DD6C 


Make sure FAC is a string. See CHKVAL. 


CHKVAL DD6D 


Checks the result of the most recent FAC operation to see if it is a string 
ot numeric variable. A TYPE MISMATCH ERROR results if FAC and С don’t 
agree. On entry: 


C set checks for strings 
C clear checks for numerics. 


(Continued) 


APPLE TECH NOTES Copyright (С) 1981 by Apple Computer, Inc. 


— —À —À — — -— —XÀ —À er ee Rm amp umm re ums Gum unum dr чине чаши AREE рь ey ee Á ee ee ee m — He O e A CUNDP AD ЗА O um TA ЫЬ рь AME cm C GENE tm cam cans de Ч p c cB m Occo 


HFIND FSCB 


Convert the Hi-Res cursor”s position to X-Y coordinates. HFIND allows the 
LA 

user to tell where on the screen the x shape table,left the cursor. On 

exit: 


SEP horizontal isb 


SEl horizontal msb 
SE2 = vertical 


DRAW FOPL 
Draw the shape pointed to by Y,X using the current HCOLOR starting at the 


current Hi-Res cursor position. On entry A = rotation factor. 


XDRAW F65D 

Draw the shape pointed to by Y,X by starting at the current Hi-Res cursor 
position inverting the existing color of the dots the shape draws over. On 
entry А = rotation factor. 


SETHCOL F6EC 


Set the Hi-Res color to X. X must be less than 8. 
SHLOAD F775 


Loads a shape table into memory from tape above MEMSIZ (HIMEM) and sets 
the pointer at SE8. 
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INTERNALS - INDEX TO ROUTINES 


The following two lists combine all the routines in the INTERNALS series 
of Apple Tech Notes. The first list is arranged alphabetically by the 
name of the routine. The second list is arranged in order of increasing 
address. 


ALPHABETIC LIST 


Name Address Page 

ABS EBAE 2600.033.D6 
ADDON 0998 2600.036.71 
ARG AS-A 2609.033.93 
VIN FOOE 2600 .033.06 
any ELØC 2699.033.08 
BKGND F3F6 2609.937.91 
ВЕР. 0393 2600 .D36.D2 
CHKCLS DEBS 260% .935.92 
CHKCOM DEBE 2609.938.92 
CHKNUM DD6A 2600.035.01 
CHKUPN DEBB 2600.038.p2 
CEKS TR DD6C 2690) .938.81 
CHEVAL DD6D 2600.038.91 
CHRGET ров: 2609.032.01 
CHRGOT 2057 26##.032.0: 
CLEARC D66C 2609.036.92 
COMBYTE E74 2690 .%33.98 
CONT NT E6FB 2600 .033.08 
CONT D898 2600 .936.93 
CONUPK E9E3 2600.033.04 
COS EFEA 2600 .033.05 
CRDO DAFB 2600.035.01 
DATA D995 2600 .936.21 
DATA DIA3 2600.036.9: 
DIV19 EA55 2600.9033.27 
DRAW F601 2000.037.#2 
ERRDIR E306 2600.038.92 
ERROR D412 2600.038.01 
EXP EFQ9 2600.033.06 
FAC 9D-A2 2609.933.93 
FADD E7 BE 2600 .933.85 
FADDH Е7АЙ 2600.033.07 
FADDT E7CL 2600.033.95 
FCOMP EBB2 2609.933.97 
FDIV EA66 26090.033.05 
FIDVT EA69 2609.033.05 
FIN EC4A 2609 .033.09 
FLOAT EB93 2600.033.P8 
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ERRDIR E306 


Causes ILLEGAL DIRECT ERROR if the program isn't running. Х is modified. 


ISLETC EQ7D 


Checks А for an ASCII letter ("A" to "Z"). On exit C set if А is a letter. 


PARCHK DEBZ 

Checks for "(", evaluates a formula, and checks for ")'. Uses CHKOPN and 
FRMEVL then falls into CHKCLS. 

CHKCLS DEB8 


Checks at TXTPTR for ")'. Uses SYNCHR. 


CHKOPN DEBE 


Checks at TXTPTR for "(". Uses SYNCHR. 


CHKCOM DEBE 


Checks at TXTPTR for “,”. Uses SYNCHR. 
SYNCHR DECO 


Checks at TXTPTR for the character in A.  TXTPTR is not modified. Normally 
exits through CHRGET. Exits with SYNTAX ERROR if they don't match. 
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MOVMF EB2B 2600.033.04 
MOVML EB23 2600 .033.04 
MOVSTR E5E2 2609 .034.P2 
MUL1$9 EA39 2609.033.97 
NEGOP EED 2600.033.97 
NEWSTT D7D2 2600.936.03 
OUTDO DB5C 2600.035.01 
OUTQST DB5A 26090.035.922 
OUTSPC DB57 2609.035.02 
PARCHK DEB2 2600.038.02 
PLOTFNS FLEC 2600.032.01 
PRNTFAC ED2E 2600.035.92 
PTRCET DFE3 2609.936.91 
PUTNEW EA2A 2690.034.02 
QINT EBF2 2600.033.08 
REASON D3E3 26#0.036.#2 
КЕМ DIAG 2600.036.01 
RESTOR D849 2600 .936.92 
RESUME F317 2600.38.91 
RND C9-CD 260#.033.93 
RND EFAE 2600.933.06 
RUN D566 2600.036.93 
SCRTCH D64B 2600.036.91 
SETHCOL F6EC 2609.937.92 
SGN ЕВ9@ 2600.033.D6 
SHLOAD F775 2609.937.92 
SIGN T B82 2600 .033.07 
SIN EFF1 2609.933.06 
SNGFLT E301 2609.033.97 
SQR EE8D 26908 .033.P5 
STKINI 2683 2600.036.92 
STRINI E3D5 2600.034.91 
STRLIT E3E7 2600.934.92 
STRLT2 E3ED 2600.034.02 
STROUT DB3A 2600.035.81 
STRPRT DB3D 2609.035.01 
STRSPA E3DD 2600.034.01 
STRTXT DE81 2600.034.02 
STXTPT D697 2609.036.02 
SYNCHR DECH 26@@.@38.@2 
TAN РОЗА 2600.033.90 
TEMP1 93-97 2609.033.03 
TEMP2 98-9C 2600.033.03 
TEMP3 8A-8E 2600.033.03 
XDRAW F65D 2600.037.02 
(Continued) 
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FMULT E97F 2600.033.05 
FMULTT E982 2609 .033.05 
FNDLIN 061А 2600.036.91 
FOUT ED34 2609.933.07 
ЕРУКТ EE97 2609.033.95 
FREFAC L600 26060.03-.23 
FRESTK ESFU 6p. 34.03 
FREIMP E604 260.934 .93 
FRETMS E535 268048 .235.93 
FRMEVL DOT 2500.033.09 
FRMNUM 2067 2699.933.99 
FSUB ETAT 2609.033.05 
FSUBT E7AA 2609.033.205 
GARBAG E484 2600 .936.02 
CDBUFS 5539 26#0.035.01 
GETADR 2752 2600 .933.93 
GETARY2T Е709 2600.D36.01 
[Uu STI CAFS 2609.032.91 
ERIN E740 2699 .933.03 
GETSPA 92 260% .032.02 
GETSET DATE 2609.935.91 
EIVAT DRESS 2609$.9033.27 
СОТ 593E 2600.036. %3 
Cin G 26055 2600 .032.D1 
liANDLERR -2E9 2600.038.2: 
CLR FIED 2600 .037.01 
НЕЕ: "СВ 2600.9037.5- 
HENS POLO 2600.D32.02 
HGR 23E2 2660 .937.901 
HGR2 2308 2609.937.2: 
HLIN 753A 2600.037.0: 
HPLOT F457 2600.037.1: 
RPOSN FATI 2699.037.0: 
ISCHR D553 260#0.035.0: 
ЕВУ D52C 2600.035.0: 
INLINt2 D52E 2600.035.01 
INPRT ED19 2600.035.02 
INT EC23 2600.033.046 
ISCNTC D858 2600.938.90. 
ISLETC ED7D 2600.038.22 
LET DA46 2600.936.03 
LINGET РАЙС 2609.932.91 
LINPRT ED24 2600.035.02 
LOG 2941 26##0.033.#6 
МОУ Е EB21 2600.033.0- 
MOV2F EBLE 2600.933.D3 
MOVAF EB63 2600 .033.D4 
MOVFA EB53 2600.933.94 
MOVFM EAF9 2600 .933.03 
MOVINS E5D4 260P.034.01 
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DEBB CHKOPN 2609.038.92 
DEBE CHKCOM 2600.038.92 
DEC SYNCHR 2600.038.82 
DFE3 PTRGET 2600.036.21 
EQ07D ISLETC 2609.938.92 
Е10С AYINT 2600.033.98 
E2F2 GIVAYF 2600.033.67 
E301 SNGELI 2600.033.07 
E396 ERRDIR 2600.038.92 
E3D5 STRINI 2606 .034.91 
E3DD STRSPA 2609.034.91 
E3E7 STRLIT 2600.034.02 
E3ED STRLT2 2600 .034.P2 
E42A PUTNEW 2600.034.902 
£452 GETSPA 2600.034.92 
E484 GARBAG 2600.036.92 
Е504 MOV INS 2699.934.91 
ESE2 MOVSTR 2600.034.02 
E5FD FRESTR 2600.034.03 
E609 FREFAC 2600.0345.03 
E694 FRETMP 2609.034.903 
E635 FRETMS 26090.934.903 
ЕбЕ5 ETSYTC 2600.032.61 
E6F8 GETBYT 2609.032.91 
E6FB CONINT 2600.033.08 
E746 GETNUM 2600.033.95 
E74C COMBYTE 26#0.033.#8 
Е752 GETADR 2609.033.08 
E7A@ FADDH 2600.033.907 
E7A7 FSUB 2608.033.85 
E7AA FSUBT 2609.033.605 
E7BE FADD 2690.033.05 
Е7С1 РАБОТ 2600.033.95 
E941 LOG 2609 .933.86 
E97F FMULT 2660.033.95 
E982 FMULTT 2609.933.95 
E9E3 CONUPK 2600.933.04 
EA39 MUL1® 2600.033.07 
EAS5 DIV1$ 2600.033.907 
EA66 FDIV 269006.933.95 
EA69 FIDVT 2600 .033.0D5 
EAF9 MOVEM 2600 .033.03 
EBLE MOV2F 2600.933.93 
EB21 MOV IF 2600.033.04 
EB23 MOVML 2609.033.94 
EB2B MOVMF 2600.033.64 
EB53 MOVFA 26909 .933.94 
EB63 MOVAF 2600 .933.04 
ЕВ82 SIGN 2699 .0633.07 
EBSD SGN 2609 .933.96 
(Continued) 
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NUMERIC LIST 

Address Name Page 

0081 CHRGET 2609 .932.91 
0957 CHRGOT 2600.032.01 
8A-8E TEMP3 2609.9033.93 
98-9C TEMP2 2600.033.903 
9D-A2 FAC 2609.033.03 
А5-АА ARG 2600.933.93 
C9-CD RND 2600.933.903 
D393 BLTU 2609.036.92 
D3E3 REASON 2600.936.92 
D412 ERROR 2609 .938.91 
D52C INLIN 2609.935.91 
D525 INLIN+2 2600.935.01 
D539 GDBUFS 2600.935.91 
i553 INCHR 2600.935.91 
2556 RUN 2600 .936.03 
DÉLA FNDLIN 2609.036.91 
UbaB SCRTCH 2600.936.91 
D^6C CLEARC 2600.036.92 
1083 STKINT 2609.036.92 
D697 STXTPT 2609.036.82 
Эрл NEWSTT 2600 .936.93 
5849 RESTOR 2609.936.92 
2858 ISCNTC 2609.038.91 
D898 CONT 2600 .036.93 
093 GOTO 2600 .036.P3 
D995 DATA 26090.936.91 
5998 ADDON 269P0.036.P1 
0943 DATAN 2600.036.91 
DIAG REMN 2600.036.01 
LOL LINGET 2600.032.91 
bAà5 LET 2600.236.23 
DA7B GETSPT 2600.034.91 
LAFB CRDO 2690 .035.D1 
DB3A STROUT 2600 .035.01 
DB3D STRPRT 2600 .035.P1 
DB57 OUTSPC 2600.935.92 
DB5A OUTGST 2600.935.92 
DBSC OUTDO 2600.035.901 
DD67 FRMNUM 2600.033.09 
DD6A CHKNUM 2600.038.01 
DDEC CHKSTR 2698.038.01 
0060 CHKVAL 2600 .038.01 
DD7B FRMEVL 2609 .933.09 
DES] STRTXT 2600 .934.92 
DEB2 PARCHK 2600.038.92 
DEB8 CHKCLS 2605.038.92 
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INTERNALS - PAGE ZERO MEMORY MAP 


APPLE 


in 4л ufo: + m Го (X 
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CO 
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ON 
pe 


68,50 
60,6E 
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en 
27 


START 

RDYJSR 
ADRAYI 
ADRGAY 
USRPOK 
CHARAC 
ENDCHR 
COUNT 

DIMFLG 
VALTYP 
INTFLG 
GARBFL 
SUBFLG 
INPFLG 
TANSGN 
ПАРЕ 


HCOLORL 


COUNTH 
HBAS 
H2 

V2 
ERROV 
LINNUM 
LASTPT 
TEMP SE 
INDEX 
INDEX2 
KES 
TEXTAB 
VARTAB 
ARYTAB 
STREND 
FRETOP 


OLDLIN 
OLDTXT 
DATLIN 
DATPTR 
INPPTR 
VARNAM 
VARPNT 
FORPNT 
OPPTR 

OPMASK 
DEFPNT 
DSCPNT 


> 


‘Hi-Res 


Initialize low RAM memory 
Jumps to STROUT 

Address of AYINT subroutine 4-— 
Address of GIVAYF subroutine 
Vector for USR() function 
String delimiter 

String delimiter 

General purpose counter 

Flag to permit arrays 

Variable type indicator. $=numeric, l=string 
Variable type indicator. l=integer, $=real 
Flag to signal the need for garbage collection 
Flag to permit array variables. 

Determines if this is INPUT or READ 

Used for the sign during TAN() function 

Hi-Res shape pointer 

Hi-Res running color mask 

Hi-Res counter | 

base address pointer. 


| 


z^ 4 
& 4 SHAAN 5 3 ( 

16 bit integer work area „ m 

Pointer to last used string temporary 

Temporary string descriptor storage area 

General purpose index 

General purpose index 

Multiply or divide result (HO,MOH,MO,LO) 

Pointer to start of the program text 

Pointer to start of simple variable space 

Pointer to start of array variable space 

Pointer to end of storage in use 

Pointer to top of string free space 

Pointer to new string 

Pointer to top of memory 

Current line number 

Old line number, set up by ctrl-C, STOP, or END 

Qld text pointer 

Line number where data for next READ comes from 4 

Pointer to data for next READ +-—. 

Pointer to where input is coming from 

Storage area for a variables name 

Pointer to a variable in memory 

Variable pointer for FOR and LET 

Pointer to current formula operation in OPTAB 

Mask created by current operator 

Pointer used in function definition 

Pointer to a string descriptor 
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EB93 FLOAT 2600.033.08 
ЕВАЕ ABS 2600.033.06 
EBB2 FCOMP 2609.933.07 
EBF2 QINT 2600 .933.98 
EC23 INT 2609 .933.96 
EC4A FIN 2600.033.909 
ED19 INPRT 2609.935.82 
ED24 LINPRT 2600.935.92 
ED2E PRNTFAC . 2600.035.02 
ED34 FOUT 2600.033.907 
EESD SQR 2609.033.95 
EE97 FPWRT 2600.033.95 
EED@ NEGOP 2609.933.07 
EF®9 EXP 2609 .933.96 
EFAE RND 2699 .933.96 
EFEA COS 2600.033.96 
EFFI SIN 2600.033.06 
РОЗА ТАМ 26#0.033.06 
FÜ9E ATN 2609.033.96 
FiEC PLOTFNS 2600.9032.01 
POEQ HANDLERR 2600.038.91 
F317 RESUME 2600.938.901 
F3D6 HGR2 2600.937.91 
F3E2 HGR 2600.037.01 
F3F2 HCLR 2600.037.901 
F3F6 BKGND 2600.037.01 
$11 HPOSN 2600.037.01 
F457 HPLOT 2600.037.01 
F53A HLIN 2600.037.91 
FSCB HFIND 2600.2937.92 
FHL DRAW 2600 .937 .92 
F65D XDRAW 26090.037.902 
F6B9 HFNS 2600.032.02 
FEC SETHCOL 2600.037.P2 
F775 SHLOAD 2606 .037 .G2 
F7D9 GETARYPT 2600.936.91 
93-97 TEMPI 2609.033.93 
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AUTO RUN BYTE 


There is a byte in memory that will cause any Applesoft command entered 
from command mode to be interpreted as a RUN command. 


POKE 82,213 
SAVE 


will cause the auto-run byte to be set when the program is loaded from 
tape. This "protection" scheme is very easy to defeat, and is not widely 
used. It does not protect the program from DOS commands. 

POKE 214,128 
will set the auto-run byte from command mode or from within a program. But 
beware, there is no way to reverse this POKE from command mode because the 


next POKE will RUN the ргоргац. 


РОКЕ 214,9 


from within a program will return the auto-run byte to normal. 
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8E TEMPF3 Temporary pointer 
8F FOUR6 Constant for garbage collection 
90-92 ЈМРЕВ Internal vector 
93 TEMPF1 Temporary pointer 
94,95 ARRYPT Pointer into an array 
94,95 HIGHDS Destination of highest element in BLT. 
96.91 HIGHTR Source of highest element to move in BLT. 
98 TEMPF2 y 
99,94  LOWDS Location of last byte transferred into in BLT. 
9B,9C . LOWTR Last thing to move in ВТ. See BLTU. 
9D-9F DSCTMP Temporary string descriptor 
9D-A2 FAC Floating point accumulator. 
(EXP,HO,MOH,MO,LO,SGN) 
A3 SNGFLG Sign of FAC. Set up by FIN. 
А& BLTS 
A5-AA АВС Floating point argument 
(EXP,HO,MOH,MO,LO,SGN) 
iB, AC STRNGL Pointer to a string or descriptor 
АР, АЕ FBLFPT Pointer into FBLFFER for FOUT 
AF,B@ РЕСЕХО Pointer to the end of the program text 
Bl-C8 СНЕСЕТ Character fetcher BEBA = ТАТ PTA 
„eI=ED RNDX Random number seed 
C 09,01 DX Hi-Res delta-X tor shape and HLIN 
D2 DY Hi-Res delta-Y for shape aud HLIN 
D3 QDRNT di-Res rotation quadrant 
D4 ,D5 E di-Res error for LIN 
D6 RNONLY Run only flag 
08 ERRFLG Flag set by ONERR GOTO 
DA,DB ERRLIN The line number where the error occured 
DC ,DD ERRPOS Where in memory did the error occur 
DE ERRNUM Which error occured 
DF ERRSTK 6502 stack pointer from REMSTK after an error 
Еф,Е XO Hi-Res prior X coordinate save 
ое O Hi-Res prior У coordinate save 
. EA HCOLOR  üi-Res color byte for HPLOT, HPOSN 
. ED HNDX Hi-Res horizontal offset save 
| E6 HP AG Hi-Res page (520 = НСКІ, $49 = HGR2) 
HEY SCALE Hi-Res scale for SiAPE 
 E8,E9 SHAPX Hi-Res start of shape table 
EA COLLSN Hi-Res collision counter 
Еф FIRST 
Fl SPDBYT Controls delay between printed characters 
F2 IRFLAG Controls TRACE mode. 
F3 ORMASK Controls masking for ISVERSE on video output. 
FA-F7 ERRTO Points to the GUTU part of ONERR statement 
F8 [4533 REMSTK 6502 Stack pointer save area. 
Жз, ROTBYT Hi-Res rotation factor for SHAPE 
100-18F FBUFFR Buffer for FOUT 
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The third comma tab field is only available if there is nothing beyond 
column 23. The first character in the third comma field can print outside 
the text window. 


HTAB can force the cursor outside the text window which can kill a program 
on the next PRINT statement. 


УТАВ ignores the text window. VTABbing below the text window will cause 


all output to be on one line. VTABbing above the text window will scroll 
into the window but the area above the window won't scroll. 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


SARA An ee ee ee a — eee eee --->--- — -— - Te {— _— 


me -— — ee eee ie а ee A— ee ee сна сть лав ee ia EEE cà ee ee a a ——À ese eases c че c —À = cá o- eer Í Men i- s meh ee eee MO 


FRE(®) 


PRINT FRE (Ø) will display the ammount of memory available for Applesoft 
variables. This can return a negative nunber if there are more than 32767 
bytes free. In that case, add 65536 to get the number of free bytes. 


PRINT FRE (Ø) can blow the system if it is done in immediate mode 


immediately after loading a program from disk. Typing CLEAR before 
PRINT FRE (0) will solve this problem. 
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MONITOR MOVE ROUTINE 


The MOVE subroutine in the monitor will not work directly from an Applesoft 
CALL because Applesoft doesnt insure that the Y register in the 6502 will 
be 0 which is necessary for MOVE to work. Here is a program that 
demonstrates a way around this problem: 


10 DEF FN М(Х) = X - INT (X/256) * 256 


20 POKE 768,169 (LDY f$ ) 
30 POKE 769,9 
40 POKE 770,76 (JMP MOVE) 


50 POKE 771,44 
66 POKE 772,254 


100 REM 00 THE MOVE 


110 START = 20909 Start of memory to be moved 
120 QUIT = 216099 End of memory to be moved 
13 DEST = 30999 Start of destination 


149 POKE 6Й,ЕМ M(START) 
150 POKE 61,START / 256 
160 POKE 62,FN M(QUIT) 
176 РОКЕ 63,END / 256 
186 РОКЕ 66,FN M(DEST) 
199 POKE 67,DEST / 256 
200 CALL 768 
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The LOMEM command in Applesoft can be used to relocate where Applesoft 
stores it's variables in memory.  LOMEM is automatically set to the top of 
the program when the LOAD command is executed. 


poo 0 00 9 T 1 








After LOAD | Program text | Hi-Res & Variables | DOS | 
| | _ 1 | 
| | -LOMEM | 
| -TEXTAB | -HIMEM 
| | -LOMEM | 
| | | | | 

After LOMEM | Program text | Hi-Res | Variables | DOS | 

| | | 
2948 8192 16384 
or 16384 24576 


The most common use of LOMEM is when a short program has it's variables 
colliding with the Hi-Res screen memory. The statements to use will depend 
on which page of Hi-Res will be used: 


HGR HGR2 
19 LOMEM: 16384 19 LOMEM: 24576 


LOMEM does a CLEAR so it must be executed before any variables are defined. 


WARNING: the CHAIN program that comes with DOS 3.3 will reset LOMEM back to 
the end of the program. 


(Continued) 
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SHAPE TABLES 


Applesoft will allow you to draw shape number zero with unexpected results. 
It will end up interpreting part of the shape table as the address of the 
desired shape and try to draw what it finds there. Since this isn't а shape 
table, the result is a random assortment of lines. 
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Номеуег, LOMEM does not move the program. There is another pointer called 
TEXTAB that tells Applesoft where to start loading the program. The 
following programs will relocate the program and variables above the Hi-Res 
buffers by changing TEXTAB. DOS and CHAIN will coatinue to load programs 
there until the system is re-booted or the FP command is executed. 


For HGR 

1} POKE 183,1 : REM THIS CHANGES 

20 POKE 194,64 : REM TEXTAB TO 16385 

39 POKE 16384 ,9 : REM (NEEDED BY APPLESOFT) 


49 PRINT CHRS (4); RUN PROGRAM" 


For HGR2 or both pages 


19 POKE 183,1 : REM THIS CHANGES 
20 POKE 194,96 : REM TEXTAB TO 24577 
30 POKE 24576,8 : REM (NEEDED BY APPLESOFT) 


46 PRINT CHRS (4);" RUN PROGRAM" 


Note: modifying TEXTAB can be dangerous. The DOS RUN command does an 
Applesoft NEW which will re-initialize the rest of Applesoft”s pointers. 
Cassette users will have to type "NEW" from the keyboard before loading 
their programs. Failure to do a NEW will cause unpredictable results. 
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Applesoft can present some strange results if the following program is typed 
in and run: 


10 GET AS 
20 PRINT VAL (AS) 
30 СОТО 18 


If the first key pressed after starting the program is 1, the program will 
print the value as 1.11111111Е+16. The reason for this has to do with 
Applesoft”s string memory initialization routines. The solution is to add: 


2 HIMEM: PEEK (115) # PEER CLIO) ~ 250 = 4 


This line will decrease your variable space by one byte each time the 
program is run. 


No fix is required if DOS is booted as DOS automatically does a HIMEM to 
protect itself. 
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FORMATTED PRINTING 


This program demonstrates a subroutine that will format your numeric output 
into a "Dollars and Cents" format. It’s simple and fairly fast. it assumes 
that the following numbers have been initialized by the progran: 


X should contain the number to be printed. 
Y is the number of digits to the right of the decimal 


$ is the width of the right justified printing field 


The subroutine starting at line 1009 is what does all the work. Try it. 


100 REM PRINT USING 
11D REM SIMULATOR 
130 REM 


Po 


1439 LET Х = ЗЕМ SET NUMBER 
150 REM OF DECIMALS 
180 LET S = REM SET FIELD 
170 REM “ТОТИ 

180 чом 

194 FOR X = = 3 ТО 5 STEP .501 
20 PRINT X. $9 3 

210 GOSLB 1999 

299. NENTS 

238. “PRINT 


кл 


24 PRINT "UNFORMATTED FORMATTED" 
250 END 
EDO ТЕТ XS =" "4o STRS ( INT (X * 10 ^ Nov 252) 


HÀ. БЕТ у= LEN (KS) = ( VAL 55) ED 

1850. PRINT 5РС{ De QUA (о ж COD RE 

idio PRIMI MIDS: SL 4 (C VAL- OS O XE € TE I) 
CQ > м)); 

ГИ PRINT МСИ LE FIR QU, LEA DEA 
(ч < + 2993 

1050 PRINT RIGHTS (X$, N * (Q» м) + (2 - 1) * (QC - 325 

1060 RETURN 
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ERROR HANDLING 


ТЕ you are using ONERR GOTO, please carefully read pages 81, 82, and 136 of 
the Applesoft Reference manual. There are two correct ways to leave your 
ONERR routine. First, you can use RESUME and Applesoft will re-execute the 
statement that caused the error. Or you may use the machine language 
routine on pages 82 and 136 (page 136 is the better example) and a GOTO. 
This routine need only be POKEd in once and does not affect the level of 
GOSUBs or FOR...NEXT loops in the progran. 
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CHAIN AND DEF FN 


User defined functions in Applesoft may cause problems if CHAIN is used. 
When a DEF FN statement is encountered in Applesoft there is an entry made 
in the simple variable table that points to the rest of the function in the 
text of the program. Strange and perhaps fatal things can happen if you use 
a function defined in the previous program without having the same image of 
the function at the same memory locations. 


The easy way around this problem is to put all the definitions in the front 
of ALL chained modules. 


First program: 
19 DEF FN A(X)-X*X 
20 PRINT FN А(2) 


36 PRINT CHRS(4);" BLOAD CHAIN,A529" 
40 CALL 520 "PROGRAM 2" 


Second program: 
10 DEF FN A(X)=A*X 


20 PRINT FN A(3) 
30 END 
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HI-RES SCRN FUNCTION 


The following program demonstrates how to determine if a certain dot oa 
the Hi-Res screen is on or off. 


1999 
1919 
1822 
1939 
1959 
1969 
1979 
1089 
1999 
1199 
1110 
1129 
1139 
1140 
115g 
1169 
1179 
1189 
1198 
1290 
12160 
1220 
1230 
1240 
L259 
1269 
1270 
ı 289 
1299 
1309 
1319 
1329 
1339 
1349 
1350 
1364 
1379 
1389 
1499 
1419 
1449 
145% 
1460 
147 

1480 


REM HIRES SCKN FUNCTION DEMO 

REM 

REM LOAD IN THE BINARY STUFF 

REM 

FOR J = 768 TO 806: READ К: POKE J,K: NEXT J 
DATA 32,227,223,133,133 

DATA 132,134,169,298,32 

DATA 192.222,165,18;72 

DATA 165,17,72,32,185 

DATA 246,32,17,244,165 

DATA 48,49,38,240,2 

DATA 169,1,168,32,1 

DATA 227,76,91,218 

POKE 1013,76: POKE 1914,9: POKE 1915,3 
REM ---------------------- 

REM DRAW SOMETHING 

REM ---------------------- 

LET НО = 129:V0 = 68 

HGR 

HCOLOR= 3 

HPLOT HO,VO 

FOR J = 1 TO 19 

HPLOT TO RND (9) * 4f + HO, RND (9) * 4 + VO 


NEXT 

HOME 

VIAB 22 

FOR J = ф TO 39009: NEXT 

REM ----------------=------ 

REM CONVERT IT TO LORES 

REM ----------------.------ 

GR 

COLOR= 2: FOR V = f TO 39: HLIN 0,39 AT V: NEXT 
FOR V = f TO 39 

FOR H = Ø TO 39 

COLOR2 12: PLOT H,V 

REM ---------------------- 

REM THIS IS £T!! 

REM THE SYNTAX IS: &A=B,C WHERE 
REM A WLLL GET THE 1 OR @ - B,C ARE 
REM THE HIRES COORDINATES AS IN HPLOT 
REM ---------------------- 

& A =H + HO,V + VO 

COLOR= A * 15 

PLOT li,V 

NEXT d,V 
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The following program demonstrates a subroutine that eliminates arrays 
from memory. This is useful in programs where memory is scarce and 
reclaiming the memory used by an array would help. Another use is to 
etase the array so that it can be re-dimensioned. 


199 HOME 


: УТАВ 5 


120 PRINT TAB (14);"ARRAY ERASER" 
130 GOSUB 10009 : GOSUB 1959 

150 PRINT "HERE ARE THE ARRAYS" 
169 LIST 188 : cosus 1099 

189 DIM A(19),BC( 1800) 


199 PRINT ' 


'AND HERE^S WHAT WE PUT IN THEM" 


200 LIST 220 - 238 
210 GOSUB 1999 


229 LET А(190) = 100 : LET B(109) = 109 
4 PRINT "OK, LET^S PRINT THEM OUT“ 
230 LIST 268 - 279 

6) PRINT A(1909) : PRINT B(199) 


288 GOSUB 1099 


298 PRINT 


"NOW TO ERASE ARRAY А?" 


390 LIST 31% 
319 CALL 768,4 : GOSUB 1999 
339 PRINT "OK, NOW LET^S PRINT 8(188) TO SHOW" 


34) PRINT 


PRINT "THAT IT S STILL THERE" 


350 LIST 369 
3op PRINT 8(1809) : GOSUB 1999 


380 PRINT 
399 PRINT 
400 PRINT 


NOW LET^S TRY TO PRINT А(190). THE” 


: PRINT "ERROR WE GET PROVES THAT THE" 
: PRINT "ARRAY IS GONE." 


+10 LIST 429 
+20 PRINT A(199) 


430 END 
1000 REM 


PRESS ANY...° ROUTINE 


1010 VTAB 23 : PRINT TAB (9);"PRESS ANY KEY FOR MORE" 
1930 НТАВ 20 : GET AS 

1959 УТАВ 19 : HTAB 1 

1070 CALL - 9558 : REM CLEAR SCREEN 


1080 RETURN 


10000 REM THE “ERASE” POKER 


10010 FOR J 


= 768 TO 823: READ К: POKE J,K: NEXT J 


10020 RETURN 


19930 DATA 
1994) DATA 
19050 DATA 
1796) DATA 
19970 DATA 
19589 DATA 
19099 DATA 
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24,169,2,165,155 

133,66,113,155,133 
00,200,165,156,133 
57,113,155,133,61 

136,56,165,199,133 
62,241,155,133, 109 
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LITERAL INPUT ROUTINE 


This program demonstrates a routine that allows anything you can type to be 
entered into a string. ТЕ”з very important that [INS = "X" is the first 
line of the program. 


199 LET INS = "X" 

118 TEXT : HOME 

129 REM ** IHE FIRST VARIABLE DEFINED MUST BE A STRING 

130 REM ** THIS STRING WILL RECEIVE INPUT FROM THE CALL 

140 REM ** THIS POKES THE INPUT SIMULATOR ROUTINE INTO MEMORY 
200 FOR J = 768 TO 798 

219 READ I : Poke I,J 

220 NEXT J 

230 DATA 162,.0.32.117,253,160,2 

24) DATA 138,145,105,200,169,9 

2559. DATA 145, 205,200,169, 2,140 

260 DATA 1M5,/6,57,213 

309 REM ** NOW TO USE IT! 

310 PRINT “ТҮРЕ iN ANY CHARACTERS YOU WISH:" : PRINT 

320 CALL 768:1N$ = MIDS (INS,1) 

330 REM ** THIS IS AN "INPUT INS" BUT IGNORES "," AND ":^ 
490 PRINT : PRINT "AND HERE^S WHAT YOU TYPED IN: 

420 PRINT : PRINT INS 

438 PRINT : PRINT "NOTE THAT EVEN QUOTES, COMMAS AND” 

439 PRINT “CULONS GET THROUGH UNSCATHED.” 

4690 PRINT : PRINT "NOW LET/S WRITE IT TO THE DISK" 

470 PRINT CHRS (4);"OPEN TEMP" 

43) PRINT CHRS 24); “ҸАІТЕ TEMP" 

499 PRINT INS 

509 PRINT CHRS (4);"CLOSE" 

510 PRINT : PRINT "AND READ IT BACK IN..." 

5208 LET INS =" 
530 PRINT CHRS (4); OPEN TEMP" 
5340 PRINT CHRS (3);" READ TEMP" 
550 CALL 768:1NS = MIDS (INS,1) 
560 PRINT CHRS (4);"CLOSE" 

578 PRINT : PRINT INS 

589 PRINT : PRINT "(A-DAA!!": END 
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19109 DATA 299,165,119,133,63 
10110 DATA 241,155,133,118,166 
19120 DATA Q,32,44,254,32,163 
10130 DATA 217,76,152,217 
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Page 5 

Paragraph 4, the last line should read: 
However, only the first 9 digits are usually significant, and the 
tenth digit is rounded off. 

Page 15 

Line 99 should read 


9% DIM A(8): REM DIMENSION ARRAY WITH MAX. 9 ELEMENTS 
Page 15 
Line 189 should read 
180 IF A(I) <= А(1+1) THEN GOTO 248 
Page 21 
The line about mid-page that reads 
CS = RIGHTS(BS,3) + "-" + LEFTS(BS,4) + "-" + MIDS(B$,6,7) 
should read 
C$ = RIGHTS(BS,4) + "~" + LEFTS(BS,4) + "-" + MIDS(BS,6,7) 
Раре 23 
Line 180 should read 
180 I = 1+1: IF I < 15 THEN GOTO 139 
Page 51 


If TAB(X) is the last item in a PRINT statement Applesoft will act as if 
there is a semi-colon after it. 


Page 52 
If SPC(X) is the last item in a PRINT statement Applesoft will act as if 


there is a semi-colon after it. 


(Continued) 
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Page 131 
Second paragraph, line 7, replace "POKE 22,W" with "POKE 33,0". 


Page 135 P 
Replace the top part with 


260 POKE -16296,% 

Clear game control "annunicator" output #® (Game 1/0 connector, pin 
15) to TTL low (6.3 volts). This is the "off" condition: maximum 
current 8 milliamperes. 


276 POKE -16295,6 | 
Set game control "annunicator" output f (Саше 1/0 connector, pin 
15) to TTL high (3.5 volts). This is the "on" condition: maximum 


current 9.4 milliamperes. 


280 POKE -16294,9 
Clear game control "annunicator" output #1 (Game I/O connector, pin 
14) to TTL low (9.3 volts). This is the "off" condition: maximum 


current 8 milliamperes. 


296 POKE -16293,9 

Set game control "annunicator" output #1 (Game 1/0 connector, pin 
14) to TTL high (3.5 volts). This is the "on" condition: maximum 
current 9.4 milliamperes. 


300 POKE -16292,0 

Clear game control "annunicator" output #2 (Game I/O connector, pin 
13) to TTL low (9.3 volts). This is the "off" condition: maximum 
current 8 milliamperes. 


310 POKE -16291,¢ 
Set game control “annunicator” output #2 (Game I/O connector, pin 


13) to TTL high (3.5 volts). This is the "on" condition: maximum 
current f.4 milliamperes. 


320 POKE -16299,9 
Clear game control "annunicator" output #3 (Game I/O connector, pin 
12) to TTL low (8.3 volts). This is the "off" condition: maximum 


current 8 milliauperes. 


330 POKE -16289,¢@ 
Set game control "annunicator" output #3 (Game I/O connector, pin 


12) to TTL high (3.5 volts). This is the “on” condition: maximum 
current f.4 milliamperes. 


(Continued) 
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Page 53 
FRE returns the amount of memory ... Applesoft sometimes stores duplicate 
strings separately. 


Page 53 

PRINT FRE (0) sometimes returns a negative number because of the way 
integers are handled in Applesoft. Adding 65536 to the negative number 
will give the positive representation. 


Page 63 
Rule 2 should read "The total number of elements RECALLed must be at least 
equal to" instead of "...equal th’. 


Page 66 

Similarly, a response... If an ASCII NUL character, CONTROL-SHIFT-P, is 
included in a line of input, the input will be truncated at the character 
before the NUL. А NUL as the first character in response to INPUT A$ will 
resuit in a null string. А NUL as the first character in response to INPUT 


A will result in ?REENTER. 


Page 66-67 

A line of input longer than 255 characters will be cancelled by the monitor 
and the user is left in the input statement. А line greater than 239 but 
less than 255 will be truncated to 239 characters. 


Page 81 
ONERR GOTO, "When an error occurs..." should read "After executing an 
ONERK GOTO command, when an error occurs...". 


Page 96 

Paragraph 1, line 6, the sentence that starts "Press the RESET key..." 
shouid read "Type CALL -151" because Apple IIs with the Auto-Start ROM will 
not go into the monitor when the RESET key is pressed. 


Page 192 
The function for LOG of X base 10 is LOG (X) / LOG (10). 


Page 118 
"1) Use multiple statements" states that the maximum line number is 65529 
when the actual maximum line number is 63999. 


(Continued) 
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Page 6 References to the RESET key need to refer to control-RESET for 
newer Apples. 


Page 17 
"STOPPING THE COMPUTER"; Pressing RETURN after a control-C may be required 
if the Apple is waiting for input from the keyboard. 


Page 23-24 
There are only five different elementary arithmetic operations. They are: 
* Addition * Multiplication 


- Subtraction / Division ^ Exponentation 


Page 37 GAMEPOINTS = 45 won't work because it contains the key word, INT. 
It will be parsed as GAMEPO INT S and it will return a SYNTAX ERROR. 
GAMEPTS = 45 should be OK. 


Page 38 The line before the last listing should say "Try the statements 
blow in order:" instead of “Try the statements on the next page in 
order:" 


Page 59 

Line 238 at the bottom of the page should read 
230 IF N < = 10 THEN GOTO 219 

Page 63 

Line 270 should read 
270 X 2 X / 7 

Page 65 

Line 322680 should read 


3020 COLOR = N 


(Continued) 
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Page 137 
The table for string pointers is wrong. 


STRING POINTERS 


=< ————— — 
| | МАМЕ (pos) lst byte | 
| | (neg) 2nd byte | 
~+ q--------------------- + 
| [length 1 byte | 
| laddress low byte | 
| [address high byte | 
| | Ó | 
| | ý | 
-+ PS — 


| [NAME (pos) lst byte | 
| | (neg) 2nd byte | 
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Page 198 
According to page 99 and iii, the title on this page should read 
"INTRODUCING ARRAYS: DIM”. 


Page 199 
The last sentence in the last paragraph should read "The program below 
accomplishes this." 


Page 169 
Line 340 should read 


340 TEMP = GLASS(WINE):GLASS(WINE) = GLASS(MILK):GLASS(MILK) = TEMP 


Page 119 

Starting in the middle of the 9th line, the text should read; “Then line 
320 makes sure that the value of WINE 13 not equal to the value of MILK at 
any given time. The contents of variables GLASS(WINE) and GLASS(MILK) are 
switched in line 340. Finally the array is printed with lines 370 through 
399." 


Page 130 
Clear the entire screen should be press <ESC> then <SHIFT> and «P8» instead 
of «CONTROL? and «PG». 


ge 148-149 
e green keys should have slashed zeros to differentiate them from capital 
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Page 69 
The last line on the page reads: 


128 PRINT "THE STRIKES AND BALLS ARE ";STRIKES;" “¡BALLS 


It is difficult to tell this because the space after STRIKES;" comes at the 
end of the line of listing. 


Page 71 
Lines 650 and 668 are reversed. They should read 


650 NEXT Y 
666 NEXT X 


Page 79 

The two example line 7860s are incorrect. The word "BACKGROUND" will be 
parsed as "BACK СВ OUND" because СК is a key word and because there is 
already a variable BALL which would share the same Applesoft variable name, 
BA. Try using “FIELD” instead. 


Page 81 
Paragraph 3, "One possible solution is given on the next page," should 
read "Ore possible solution is given below," 


Page 85 
Line 220 has an extra ")'. It should read 
220 COLOR INT (16 ® RND(1)) 


Page 95 The program will give incorrect values for the Y variable unless a 
time delay is installed. Ааа this line: 1005 FOR 3 = 1 TO 19: NEXT J 


Page 96 
Line 360 should read 
360 FOR S = 0 TO 1: REM 2 LINES, FROM Y AND V + 1 


Page 195 
Replace line 120 with 


129 WHOLES = HALFS + " ” + OTHERHALFS 


(Continued) 
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FIRMWARE CARD OPTIONS 


The Applesoft firmware card was designed to supply floating point Basic to 
Apple II owners. There are three options on the card that the user may 
select. 


The first and most obvious option is the switch on the rear of the card. 
It is used to force the selection of which bank of ROMs, the firmware card 
or the motherboard, will be used immediately after a system reset. ТЕ the 
switch is up then the system will default to Applesoft, otherwise it will 
default to Integer Basic. 


This can also be controlled by software by accessing address $С@8@ to 
select Applesoft and $С@81 to select Integer Basic. DOS confuses things by 
forcing the version of BASIC it was last used every time it gets control, 
regardless of the position of the switch and DOS gets control immediately 
after a reset in a system with an Auto-Start ROM. 


The second option concerns the monitor ROM. Between ICs B3 and B4 there is 
a solder circle divided into two pads with the label "F8" silk screened 
under it. If these pads are separated then the monitor ROM on the 
motherboard will always be used. But if the pads are connected then the 
old monitor ROM on the card will be used with Applesoft. 


This can be interesting if you have an old monitor with your Integer Basic. 
If the switch is set to go to Integer Basic then the Apple will drop into 
the old monitor when you RESET it and while you are in Integer Basic the 
Auto Start monitor functions won't be available. 


The third option also concerns using your own language and monitor. Apple 
Computer uses 2316 type ROMs for all our firmware. However 2716 type (+5v 
only version) EPROMs can be used to replace the ROMs on the firmware card. 
There are two pairs of solder spots that can be connected to reconfigure 
the card for 2716s. They are in the upper right corner with a box drawn 
around them and "2716" written over it. The card can only use one type at 
a time, 2716s and 2316$ cannot be mixed. 
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FIRMWARE CARD AND SYSTEM ERRORS 


Occasionally, peripheral cards with solder plated edge connectors collect 
some oxidation on the contact fingers which can cause an intermittent 
connection. This can result in various unusual and unexpected system 
errors when it happens to the Applesoft Firmware Card. 


To clean off contacts, turn off the power and remove the cards. Using a 
soft pencil eraser ("Pink Pearl" or such), gently clean off the contacts. 
Replace the boards, seat firmly, then reboot the system. If this does not 
correct the problem, contact your dealer for assistance. 
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INDEX TO ARTIST DESIGNER 


ALPHABETIC LISTING | 
Doc Title | 


001 Artist Designer and the Apple /// 


NUMERIC LISTING 


| 
| 
Doc Issue Date Previous Date Pages | 
200 МАҮ 12 82 ОСТ 28 81 1 | 
091 OCT 28 81 - 1 | 
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ARTIST DESIGNER AND THE APPLE /// 


The Artist Designer package чоп”Е work on the Apple /// in emulation mode 
because it is written in Pascal and there is no Language Card in the Apple 


[fT]. 
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¿NDEX TO AUTO-START KOM 


ALPHABETIC LISTING 


Doc Title 
992 RESET 
091 Syntax Errors and Control-S 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 
091 ОСТ 28 81 - 1 
992 ОСТ 19 82 - 1 
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SYNTAX ERRORS AND CONTROL-S 


Sometimes if you use the control-S feature to examine a Basic program 
listing, you will get a SYNTAX ERROR with the next typed line. This is 
probably because you accidentally typed an extra control-S after the 
program was done listing. This extra control-S is put into the input 
buffer like any other characters and, since no Basic command starts with a 
control-S, you get a SYNTAX ERROR. Typing the left-arrow key until the 
Apple generates a new prompt line will insure that there is no control-5 in 
the buffer. 
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ALSET 


The Autostart ROM allows the machine language programmer to execute his own 


routine after а RESET instead of automatically dropping into the monitor or 
BASIC. The (new) Apple_II Reference Manual describes how to use this 
feature on pages 36 and 37 Jj 


To have the Apple to go into monitor mode upon RESET, do a CALL -155 to 
enter the monitor and type: 


3F2:69 FF 5A 


This sets the reset vector to point to the old Apple monitor mode. 
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INDEX TO BRIDGE TUTOR 


ALPHABETIC LISTING 
Doc Title 


00! File Not Found Error 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 


901 JUL. 7 82 - 1 
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FILE NOT FOUND ERROR 


Ihe message; 


FILE NOT FOUND 
STOPPED AT 1548 


will appear if either the Precision Club and Scientific Bidding system is 
selected from the main menu. Both options are available in the menu of 
both versions of Bridge Tutor, but the Precision Club and Scientific 
Bidding system are only available on the expanded version. 
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BUSINESS BASIC NUMEKICS 


Apple /// Business Basic uses the same floating point math package as 
Applesoft internally. However, Business Basic will only display 6 decimal 
digits maximum when it prints. This limitation was built in because the 
last three digits of Applesoft's math package develop errors that can 
seriously affect some applications. 
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BUSINESS BASIC TURNKEY OPERATION 


The Apple /// will automatically run a program called HELLO on the boot 
diskette after booting. 
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Ann daa 


FINDING WHAT VOLUME IS IN WHAT DRIVE 


Sometimes it is necessary to find what is the volume name of the diskette 


in ele x 


10 
29 
39 
49 
58 
69 
79 


APPLE TECH NOTES 


Here is a small program that does that. 


TEMPS = PREFIXS 


PREFIXS = ".DL" 
01$ = PREFIXS 
PREFIXS = ".D2" 


02$ = PREFIXS 
PREFIXS = TEMPS 
PRINT ".Dl contains ";D1$;" and .D2 contains 


"2029 
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ERROR CODES 


Here are some error codes that aren't in the manual. 


by Device disconnected 
38 Resource Unavailable 
39 Directory full 

46 buplicate volume 


These messages will print on the screen if the program doesn't have ONERR 
enabled. #39 will only show up in the root directory under SOS 1.1. 
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RENUMBER - UNREFERENCED LINES 


The RENUMBER program on the Business Basic diskette won't be able 
to properly renumber the following sample program: 


10 GOTO 29 


It^s obvious in this example that the GOTO 2% in line 16 references a line 
that doesn’t exist but in a large program, it won’t always be obvious. One 
way to check for this situation is to use the XREF function in the RENUMBER 
program to determine that there are no “phantom” line numbers before 
attempting to renumber. 
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The SWAP command will exchange the values of two variables of the same 
type. There are several reserved variables like HPOS and VPOS that SWAP 
will not work with. 


10 SWAP АХ, ВХ WILL WORK 
20 SWAP AZ,HPOS WON” T WORK 
30 Temp% = АХ: АХ = HPOS: HPOS = Temp% WILL WORK 
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PRINT USING 


The string specification in PRINT USING will only take as many characters 
of a long string as are required to fill it's field length. The rest of 
the stríng is ignored. 


AS = "abcdefghi jklmnopqrstuvwxyz" 
PRINT USING "3X,194,3X"; AS 


abcdefghi ј 


AS appears to be truncated to 10 characters. Use the MIDS function to split 
up a string into multiple lines. 
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PRINTING TO AN EXTERNAL PRINTER 


There are several ways to send data to a printer in Apple /// Business 
Basic. They all require that a file be opened to a suitable device driver. 
Applesoft users will be quite comfortable with... 


10 OPEN #1, ".РЕТМТЕВ" (OR ".SILENTYPE") 
20 PRINT "TO SCREEN" 

38 OUTPUT #1 

4f PRINT “TO PRINTER" 

50 OUTPUT #9 

69 PRINT "TO SCREEN, AGAIN" 

78 CLOSE #1 


Now, if you want to only print a line at a time to the printer... 
10 OPEN #1, ".РЕТМТЕВ" COR “se LLENTYPE) 
29 PRINT “TO SCREEN” 
4 PRINT #1;"TO PRINTER" 
69 PRINT "TO SCREEN, AGAIN" 
79 CLOSE #1 
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VARIABLE ERROR 


The most common cause for a variable error is to use SWAP with at least 
one of the arguments set to a null string. This creates an error in the 
string variable storage area. However, Business Basic won't notice this 
error until it runs short on storage space and tries to consolidate all 
the free space. The variable error will occur when the cousolidation 
routine finds the swapped null string. 
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IF... THEN. . ELSE 


The IF...THEN statement can have some unexpected results. The rules for 
Ir...THEN are: 


when the logical expression is true, the rest of the line is 
executed. 


Éxceptions: 
ТЕ there is an ELSE on the same program line, execution 
will continue to the ELSE and then goto the next numbered 
program line. 


ТЕ there is a GOTO, implicit or implied, execution will 
continue at the target line. 


When the logical expression is false, execution continues on the 
next numbered program line. 


Exceptions: 
ТЕ there is an ELSE on the line, execution continues after 
the ELSE. 


The following examples will help explain some special cases: 
EXAMPLE 1: 


19 IF A = O THEN PRINT 1 : PRINT 2 
28 PRINT "LINE 29" 


Assuning A= 9 А OP 
Results 1 LINE 26 
Е 
LINE 29 


If A equals В then the PRINT statements will be executed. If A doesn't 
equal ~ then line 20 will be executed. 


LØ IF А = Ø THEN 509 : PRINT 1 : PRINT 2 
20 PRINT "LINE 29" 
500 PRINT "END" 


Assuming А = } А <> f 
Results END LINE 28 
END 
(Continued) 
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LXAMPLE 6: 
10 IF А = O THEN PRINT 1 : GOTO 500 : PRINT 2 : ELSE PRIAT 3 
20 PRINT "LINE 20" 
500 PRINT "END" 


ASSuming А = 0 А <> f 
Results L 3 
END LINE 29 
END 


The PRINT 2 statement will never be executed. If A equals Ø then the PRINT 
1 will be executed and then execution will transfer to line 50D. If A 
doesn^t equal ® then the statements after the ELSE will be executed. 
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The PRINT statements in line 10 will never be executed. Tf A equalis 0 then 


execution transfers to line 500. If A doesn’t equal Y then line 24 will be 


executed. 


EXAMPLE 3: 
LØ IF A = 0 THEN PRINT L : GOTO 500 : PRINT 2 
20 PRINT “LINE 20" 
500 PRINT "END" 


Assuming A= 0 A <> 0 
Results 1 LINE 2% 
END END 


‘he last PKINT statement in line 10 will never be executed. If A equals 


А then the first PRINT will be executed and then execution wili transfer to 
line 509. If A doesn't equal В then line 20 will be executed. 


EXAMPLE 4: 


10 IF А = ) THEN PRINT 1 : PRINT 2 : ELSE PRINT 3 : PRINT 4 
20 PRINT "LINE 29" 
Assuming А = 0 à 2 Ð 
Results ji 3 
2 4 
LINE 29 LINE 29 


This is a classic example of how ELSE is used. Either execute PRINT 1 and 
PRINT 2 or execute PRINT 3 and PRINT 4. 


EXAMPLE 5: 
10 IF А = O THEN 500 : PRINT l : PRINT 2 : ELSE PAINT Э 
20 PRINT "LINE 29" 
590 PRINT "END" 


Assuming A = ў A OS 40 
Results END 3 
LINE 29 
END 


PRINT 1 and PRINT 2 in line 10 will never be executed because {Ё А equals $ 


then execution transfers to line 599. If A doesn’t equal Y then the 
statements after the ELSE will be executed. 


(Continued) 
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ERRATA - APPLE BUSINESS BASIC REFERENCE MANUAL 
А31,0962 
030-0122-909 


Page iv 
The correct page number for Chapter 6 is 159. 


Page iv 
The entries for appendices C and D are reversed. They should read: 


С Alphabetic List of Reserved Word 236 
D Variable Maps 238 


Page 2/ 
The section on CONTROL-5, -6, -7, -8, -9 should refer to page 139 of the 
Standard Device Drivers Manual. 


Page 128 
The information at the top of the page is missing periods. It should 


read 


JPRINT USING “+### HPH", 3.14159 
ЗЕ 


This spec, +###. ##, 
Page 151 
The line at the top of the page should read 


DEF FN MODB(A)=INT ((А ~ INT (А/В) * B +.5) 


Page 249 
The information for Long Integers is reversed. It should read: 
Long Integer о high byte 
7 low byte 
(Continued) 
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INDEX TO BUSINESS GRAPHICS /// 


ALPHABETIC LISTING 


Doc Title 

095 Character Set for Floating Labels 

$93 HP Plotters 

99% Errata - Apple /// Business Graphics 

902 Interchange 

901 Interfacing Printers to Business Graphics 
ADA Silentype Printer 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 
#01 JUN 3 82 - 1 
802 JUL 19 82 - 1 
993 AUG 25 82 = 1 
$^ OCT 6 82 - 1 
895 ТАМ 12 83 - 3 
990 МОУ 15 82 - 1 
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Page 329 
The example that starts "PRINTl;Apple" should read; 


PRINT #1; "Арр1е” Prints text characters on the 
graphics display, starting at the 
cursor position (if you used 

OPEN #1,".СВАРНТХ" 
to open the graphics driver). 
Cursor marks upper left corner 
of character’s rectangular cell. 


PRINT £1; CHRS(19);CHR$(13) Sends direct screen-control 
characters to the .GRAFIX driver. 


Page 322 
KBD is described on page 121 instead of page 43. 
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а PRINTERS TO BUSINESS GRAPHICS 


Drivers designed to print graphics on various printers and plotters are 
available from: 


Business and Professional Software 
143 Binney Street 

Cambridge, MA #2142 

(617) 491-3377 
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INTERCHANGE 


The Interchange command will add a ".TEXT" suffix to your file name. You 
must add a period at the end of the file name to disable this feature. 


Enter What Interchange tries to find 
FILE FILE.TEXT 
FILE. FILE 
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ПР PLOTTERS 


The Business Graphics package is provided with a set of drivers for 
different Graphics Plotters, and one of them is the HP 72254 plotter. 

HP has now changed their product line and the 7225А Plotter has been 
replaced by the HP 7476A plotter. To connect this graphic plotter to the 
Apple /// Business Graphics package, do the following: 


1) Use the Apple Modem Eliminator Cable (A3MÓ919) and the 
cable supplied with the plotter (AMP 97479-69999). 


2) Set the .PRINTER driver to 1209 BAUD and one (1) STOP-BIT. 


3) Set the SWITCHES on the plotter as follows: 


4) Enter the command SET DEVice HP 7225A to initialize the plotter 
from Business Graphics. 
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SILENTYPE PRINTER 


There seems to occasionally be a problem when trying to use the Write Screen 
Silentype command in Business Graphics ///. Sometimes the program will hang 
up and not recognize the silentype. To avoid this problem, the user should 

enter "Set Unit 128" before using the Write Screen Silentype command. This 

unit set only aeeds to be done once during each usage of the program. 


Early copies of Business Graphics /// that you might have do not seem to 
have this need, but the production copies with a 9 NOV 81 date on the 
PLOT.CODE file need this procedure. 
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CHARACTER SET FOR FLOATING LABELS 


The character set used for floating labels in Apple /// Character Graphics 
is stored in the file SYSTEM.CHARSET. The characters are stored in two 
blocks and are formed into a 5 x 6 array. Each byte represents one row of 
dots in reverse order. The seventh byte is the width ot the character for 
the proportional spacing routines, however the standard character set isn’t 
consistent and Business Graphics doesn't use this byte. The eighth byte is 
a zero to delimit the characters. 


Due to the limitations of the small character cell, lower case letters are 
displayed as upper case. 


Block- ASCII Char Bytes of display 
Byte 

2-992 в “@ 0009 0999 9000 9990 
à-210 1 ^А 0000 0000 0990 0999 
-018 2 ^B 0999 0999 0000 9999 
0-926 3 “E 0000 GOOD 0999 9999 
2-034 4 ер 0099 69000 0000 0000 
0-942 5 ^E 0099 9009 0000 9099 
j-259 6 ^F 0000 9000 0000 0000 
2-558 7 e 09990 9000 0000 909099 
0-066 8 ^H 0000 0000 9990 29099 
8-974 9 gi 0000 0000 0000 2099 
0-582 19 ^J 0000 0000 0999 090909 
$-999 Li ^K 0999 0000 9090 0099 
$-998 12 Б 0000 9000 0000 99909 
$-196 13 “M 0909 9900 PUDO 0000 
#-114 14 ^N 0999 BADD 0999 9999 
0-122 15 ^0 0090 0000 9000 9999 
D-130 16 ^P 0000 0909 0000 0909 
0-138 17 ^Q 0999 0999 0999 9000 
9-146 18 ^R POOP 0999 0000 9909 
9-154 19 ^S PAOD $9099 PIDO YODO 
0-162 29 gi: $599 #000 0000 9099 
$-179 ZI ^ 0090 9000 9009 2990 
0-178 22 ^V 09009 POSE 0000 9000 
0-186 23 ^W 0000 9090 29990 0999 
0-194 24 ^X 9099 99909 2099 9999 
0-292 25 ^y 0999 0999 0909 9999 
0-219 26 70 00909 QUUD QUOD 9290 
9-218 27 ^Í 0990 0000 2999 0999 
J-226 28 в. 0000 0000 00009 0000 
9-234 29 = $0909 9009 0000 9909 
0-242 39 um 0000 0009 900$ 0099 
0-259 31 y 0000 9009 0000 99909 


0-258 32 SPACE $999 0909 2900 9099 
(Continued) 
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1-154 83 S 0009 5708 0996 03909 
1-162 84 T $702 0202 02902 $499 
1-179 85 U $909 9999 #906 0399 
1-178 86 V 0505 0505 $552 0599 
1-186 87 W 1111 1515 1818 3499 
1-194 88 X 0909 2606 #909 0399 
1-202 89 Y 2505 0502 0292 $499 
1-219 94 Z ers 0452 O1OF 9399 
1-218 91 | 0701 0191 #107 $40 
1-226 92 / 0191 0294 2808 0399 
1-234 93 1. 0704 0404 9497 05909 
1-242 94 n PIDA 1109 90909 9409 
1-259 95 09009 9099 GOOF 9398 
1-258 96 ш 0192 0270 0000 9499 
1-266 97 а 0609 990Е 0909 2498 
1-274 98 b 0709 9799 0997 6400 
1-282 99 c 0609 $101 0906 04909 
1-290 190 d 0709 #909 0997 9499 
1-298 101 е DEAL 0701 P1OF 9496 
i-3f6 162 f DEPL 0701 0101 9490 
1-314 163 g 906909 рійр $996 2498 
1-322 164 h $909 OFO9 $999 2398 
1-330 165 i 0702 9202 0297 2498 
1-338 196 j 0898 0809 #906 9499 
1-346 107 k 0905 0303 9599 0499 
1-354 198 1 0101 0191 9190Е #500 
1-362 19 m 1818 1515 1111 $499 
1-379 119 n $909 вӱр $909 0498 
1-378 111 о 2609 09909 9996 0499 
1-386 112 р 0709 0907 2191 2499 
1-394 113 q $609 #909 PIPA 9499 
1-492 114 г $759 0907 0509 0499 
1-419 115 5 0689 0798 $996 9309 
1-413 116 t 0702 0202 $292 $0499 
1-426 117 u $999 0909 9906 0399 
1-434 118 V 0505 #505 0592 $590 
1-442 119 м 1111 1515 1B1B $499 
1-459 1296 x 0959 0606 90999 PPP 
1-458 121 у 0505 2502 0202 9499 
1-466 122 2 DFP8 0402 #010Е 9389 
1-474 123 ‘ 4602 0303 $296 #300 
1-482 124 | 0202 0202 9202 $3909 
1-499 125 } 0392 0606 9203 0500 
1-498 126 = 2016 2069 98900 dap 
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2-266 33 ! 0202 #202 0002 $0309 
0-274 34 е 0505 0509 0000 0500 
0-282 35 $ PALF GAGA 1ЕВА 8590 
0-299 36 S 1595 fE14 14ØF 9490 
0-293 37 % 0108 0402 0198 0490 
0-386 38 & 0205 0200 590A #300 
0-314 39 а 0202 $200 #0020 9399 
8-322 4g ( 0402 #202 9294 9399 
9-339 41 ) 0102 $292 9291 2598 
90-338 42 * 150E LFQE 1599 9309 
0-346 43 + 0002 0297 292 9389 
0-354 44 : 0099 9002 $291 0399 
$-362 45 - 0000 0097 $909 0300 
9-379 46 А 9999 0999 0202 $0499 
0-378 47 / $808 $492 $191 04909 
0-386 48 0 0609 ØDØB 9996 0499 
0-394 49 1 0406 0494 9494 2490 
0-402 50 2 0609 $0402 ØLØF 9406 
0-419 51 3 $609 $4908 $906 $6499 
0-418 52 4 $595 059r 9404 0400 
4-426 53 5 0rgd1 $798 0906 0499 
0-434 54 6 9601 0799 0906 0400 
0-442 55 7 PFO8 0492 $191 $499 
0-459 56 8 0609 9699 #906 90499 
0-458 57 9 0609 PIPE 6896 0300 
$-466 58 : 9999 0209 0299 93909 
9-474 59 : 0292 0002 0201 90399 
0-482 69 < $492 0191 0204 $9399 
0-490 61 = 0909 9700 0700 03909 
$-498 62 > $102 $494 $291 $400 
9-506 63 ? $699 0cóo6 0992 9590 
1-992 64 (d 0205 071D $808 $499 
1-019 65 А 0609 popr 9909 2490 
1-918 66 B 0709 0709 0907 PIDO 
1-026 67 C 0609 $191 0906 0499 
1-234 68 D 0709 0909 $997 $0499 
1-842 69 E фЕ@1 0701 019r 0400 
1-050 76 Е ØFØL 0701 0101 2409 
1-058 71 G $699 #0100 0996 9499 
1-966 72 Н 0909 PFY9 9999 0300 
1-074 73 I 0702 0292 #207 249% 
1-982 74 J 0808 £809 0906 0409 
1-899 75 K 0905 03903 0509 499 
1-098 76 L $191 0101 919Е 0599 
1-196 Ii M 1B1B 1515 1111 4f 
1-114 78 N 0999 ØBØD $999 $499 
1-122 79 0 0609 £999 9906 0499 
1-139 89 P 6709 0997 0101 $4909 
1-138 81 Q $609 0999 050A 0499 
1-146 82 R $709 0907 0509 0499 
(Continued) 
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СВКАТА ~ APPLE /// BUSINESS GRAPHICS 


Page 188 
The proper command to use a Qume printer is: 


SEt DEVice QUME (<n>) 
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INDEX TO BUSINESS GRAPHICS ][ 


ALPHABETIC LISTING 
Doc Title 


091 Interfacing Printers to Business Graphics 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 


001 JUN 3 82 - 1 
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INTERFACING PRINTERS TO BUSINESS GRAPHICS 


Drivers designed to print graphics on various printers and plotters are 
available from: 


Business and Professional Software 
143 Binney Street 

Cambridge, МА 02142 

(617) 491-3377 
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INDEX TO CENTRONICS PRINTER INTERFACE 


ALPHABETIC LISTING 


Doc Title 

606 Carriage Return Delay 

092 Controlling the Most Significant Bit 

003 Deselection of Centronics 792 or 7903 Printers 
991 Initializing with POKEs 

094 Is the Printer On-Line? 

DOS Programming Block 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 
601 JUN 25 82 - L 
902 DEC 14 81 - 3 
203 JUL 7 82 - 1 
904 JUL 7 82 - 1 
205 JUL 12 82 - 1 
000 JUL-12 82 = 3 
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INITIALIZING WITH POKES 


Neither the PR# nor IN# commands in Applesoft and Integer Basic initialize 
the Centronics Interface. This can cause problems for the user who needs 
to modify the parameters of the interface for his appiication. Не must 
sead a character through the interface before poking in the new parameters. 
The following is a list of the POKEs needed to initialize the memory 
locations used bv the Centronics Interface. Please refer to the manual for 
more information on what each POKE will do. Replace the letter "s" in the 
list with the slot number in which the interface is installed. 


10 POKE 1400+5,30 Carriage Width 
24 POKE 1656+5,0 Character counter 
30 POKE 1784++8,137 Set command prefix to ctrl-I 
Y PUXE 1912+5,0 Disable video 
or | Enable video 


The next list oi POKES will replace the PR? and IN commands. These POKES 
| efit from the previous POKEs. The CALL 1002 should be 
| ое doing DOS commands while the interface is enabled. 
it ; GE. апы yf the essence, don^t use the CALL 1002 until after 
the fata transter has been made since UOS does slow down I/0. These POKEs 
Di Se con one command line separated by colons to work in command 
nev гап nave separate iine numbers in a progran. 


pas. E 
^ 


Jr 


S NC EN ot РА; 


м. 1 AS аз г. |. : 
JJ SSS": NEM CTRL-D 
n ` те US a ‹ i 
10 PRINT 25; "PRO 

naan ‚А sis - E t+ uk „э 

d and hp MOS JS 1 INS 


However, this will only work after a PRINT and will de ignored al 
or PRINT terminated with a comma or semicolon. To avoid n 
extra PRINT you can use: 


IS IS LN#@ 
IS IS PR#O 
IS RECONNECTS 205 


900 CALL -375 : REM T 
910 CALL -365 : REM T 
920 CALL 1002 : REM T 


SPECIAL NOTE: The Centronics Printer Interface has the option of echoing 
to the Apple "s video output. Your program or variables will suffer if you 
don^t disable the video output while printing lines more than 49 characters 
long. 
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CONTROLLING THE MOST SIGINIFICANT BIT 


INTRODUCTION 


This driver allows the user control bit 8 from an Apple Centronics Printer 
Interface with a POKE. Bit 8 is used by some printers to select expanded 
or normal print mode or to enable alternate or graphics character sets. 
DOS 3.2 or DOS 3.3 is required to use this routine. It will work in the 
Apple /// in Emulation mode. 


SOFTWARE ENTRY 


First you must decide which slot the interface will go in and enter the 
driver. The routine is customized for this slot number and won^t work 
properly if used with a different configuration. Enter the driver using 
the values from the table for words in brackets, < >. 


SLOT i 2 3 4 2 6 7 
CODE Ci C2 C3 C4 C5 CÓ C7 


Enter the monitor with CALL -155 and type 


3B0:A9 «SLOT? 
:20 95 FE 

:A9 86 

:20 ED FD 

:А9 C5 

:35 36 

:A9 03 

t8j3- 3% 

:4C EA 93 

:29 ТЕ 

:@D CD 93 

:4С $2 <CODE> 
: 8 


(Continued) 
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USING THE PRINTER: 


The first time you want to use the printer you must load the driver and 
initialize the interface. From command mode type 


BLOAD CEN 736 
CALL 944 


This may be done from a program by entering 
109 PRINT DS;"BLOAD CEN 739" : CALL 944 
assuming that 0$ is a control-D. 
If you want to switch back to the video monitor for output type 
РКО 
Or in а program enter 
200 PRINT DS; "РЕЙ" 
Then to reconnect the printer, all that is required is 
CALL 954 
or from a program 


300 CALL 954 
SETTING THE PRINT MODES: 


To set normal print mode POKE 973,9 
To set the high bit to "1" POKE 973,128 
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To check your typing, type 
3BOL 


and compare your listing to the one below for an interface plugged into 
slot l. 


03B0- А9 Pl LDA #501 
0382- 29 95 FE JSR | SFE95 
03B5- А9 80 LDA #580 
0387- | 20 ED FD JSR | SFDED 
03BA- А9 C5 LDA #9865 
Q3BC- 85 36 STA $36 
Ö3BE- AI 93 LDA #$@3 
03с0- 85 37 STA $37 
03C2- АС EA 93 JMP  $Ø3EA 
Ø3c5- 29 7F AND  #$7F 


03C7- ØD CD #3 ORA S03CD 
@ЗСА- 4С Q2 Cl JMP $6192 
Ó3CD- 80 22? 


Now return to BASIC with 3D@G 


SAVING THE PROCRAM TO DISK: 


The driver should be in memory before the printer is used. Save the driver 
by typing 


BSAVE CEN 730, AS3B@, LSIE 


(Continued) 
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DESELECTION OF CENTRONICS 702 OR 703 PRINTERS 


The Centronics printer interface was originally designed to be used with 
the Centronics microP-1 printer. That printer required a control character 
to set it into 86 column mode. The firmware on the Centronics printer 
Interface, РВОМ P9-99, sends а $1D when ever it receives the <control-I>8ßN 
command. This control character is part of a VFU command on a Centronics 
702 or 703 and usually deselects the printer. The fix is to send a 
re-select code, but since the deselected printer doesn't return the Apple's 
handshake, the reselect will have to be POKEd to the interface. 


100 FOR J = 1 TO 5 
110 POKE -16256 + 16 * SL, 17 
120 NEXT 
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IS THE PRINTER ON-LINE? 


The following program will test to see if the printer connected to an Apple 
Centronics Printer Interface is ready to accept characters. 


19 SLOT=1 

20 DEVICE = 49289+16*SLOT 

36 РОКЕ DEVICE,141 

46 FOR 1=1 TO 20: TEMP=PEEK(493445+256*SLOT) : NEXT 

SØ IF TEMP <> 254 THEN REM READY 
60 IF TEMP = 254 THEN REM NOT READY 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


A -a e e e — —— —— —— uA MS AD — арар —— — — — — ——— — — — — — —— A — — —— —— —— M — — —— —— M ————M— сє 


чье cim dm ums um cu cU dm Us ub AS ure ae am e а am m m Uu m um a us um aum cum чө е Pc ew um m mc m m c MX —MÁÓ RM 


PROGRAMMING BLOCK 


The Centronics Printer Interface has a programming block that customizes 
the interface to a given printer^s requirements. The normal configurations 
for the programming block are shown starting on page 6 of the Parallel 
Printer Interface Manual. The signals are defined as follows: 


signal purpose 


x This controls the level of the first microsecond 
of the strobe 


X This controls the level of the second microsecond 
of the strobe 


A This controls the level of the strobe from the third 
microsecond till the next strobe 


Y,Y The return Acknowledge from the printer synchronized 
with the Apple's clock 


E This uses the Y or Y to toggle the internal “busy” latch 
2.2 This is the internal “busy” latch 
CD These are ANDed together and tell the processor that the 


printer is busy 


тт] 


This is a general purpose line for “out of paper” type 
of information 


$5 A logic “1” 


GND A logic “9° 


The Centronics Printer Interface comes with a pre-made cable that plugs 
directly into a Centronics 779, a pre-wired interface programming block, 
and a Centronics specific PROM (29-00). The Centronics version of the PROM 
assumes that the printer (779 or micro P-1) will advance the paper when it 
recieves a carriage return. The control-J feature in the manual doesnt 
work. 


The parallel card can be driven directly without the aid of the the PROM. 
The address for the printer busy information is at $ClCl for a card in slot 
1 and the data can be sent by storing it at address $0898 for slot 1. 
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CARRIAGE RETURN DELAY 


INTRODUCTION 


This program introduces a variable time delay after printing а carriage 
return character. The delay gives slower printers time to return to the 
left margin without missing characters. DOS is required to use this 
modification. 


SOFTWARE ENTRY 


First you must decide which slot the interface will go in and enter the 
delay program. The program is customized for this slot number and won't 
work if used with a different configuration. Enter the program using the 
values from the table for words in brackets, < >. 


The delay is measured in tenths of a second and entered in hexadecimal. 
Hence 5 is 1/2 second and А is one second. The usual default value is 5. 


Enter the monitor with CALL -155 and type 


390:A9 «SLOT» 
:Y9 có 
:8D AC 03 
:29 95 FE 
: A9 50 
:20 ED FD 
:A9 AA 
45:3 «35 
:А9 93 
93 32 

: 4C EA #3 
:20 $2 Cl 
:C9 8D 
:DØ DE 
:A9 05 ( DELAY ) 
: 48 

:A9 C2 
:20 A8 FC 
:68 

:E9 #1 
:00 F5 
:6@ 


To check your typing for the first twenty lines, type 


399L 


( Continued) 
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100 PRINT DS;" BLOAD CR DELAY” : CALL 912 


assuming that 0$ is a control-D. 


ТЕ you want to switch back to the video monitor for output type 
PRI 
or in a program enter 


290 PRINT DS; PRÉQ" 


Thea to reconnect the printer, all that is required is 
CALL 938 
or from a program 


300 CALL 938 


NOTES 
The delay can be adjusted from BASIC with: 
POKE 946,<DELAY> 


The delay in this case is in decimal. Then BSAVE the program again. 
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and compare your listing to the one below for slot 1. Type another L to 
list the last two lines. The information below the RTS instruction isn’t 
important. 


0390- a9 #1 LDA #501 
4392- 09 CP ORA #5506 
9394- 8D AC Q3 STA  SM3AC 
9397- 20 95 FE JSR SFE95 


@39А- А9 8@ LDA #580 
$39C- | 20 ED FD JSR  SFDED 
039F- А9 АА LDA #SA5 
03A1- 85 36 STA $36 
03A3- А9 #3 LDA #503 
@ЗА5- 85 37 STA $37 


0347- АС EA 43 JMP $@3EA 
93Aa- 20 $2 Cl JSR — $C192 


B3AD- C9 8D CMP #580 

Q3AF- 00 BE BNE SÓ3BA 
0381- 49 D5 LDA #505 

93B3- 48 PHA 

0384- А9 C2 LDA #$5С2 

0386- 20 a8 FC JSR ЅЕСАВ 
0389- 68 PLA 

03BA- E9 fl SBC #501 

03BC- DØ FS BNE S@3AF 
Q3BE- 60 RTS 


Now return to BASIC with 3D@G 


SAVING THE PROGRAM TO DISK 


The program must be in memory before the printer can be used with the 
delay. Save the program by typing 


BSAVE CR DELAY, А$390, LS2F 


USING THE PRINTER 


The first time you want to use the printer you must load the program and 
initialize the interface. From command mode type 


BLOAD CR DELAY 
CALL 912 


This may be done from a program by entering 


(Continued) 
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INDEX TO COMMUNICATIONS INTERFACE 


ALPHABETIC LISTING 


Doc Title 

005 Applesoft and Datamover 

019 Carriage Return Delay 

208 Directly Controlling the 6850 АСТА 

911 Echo Suppression 

990 Errata - Communications Interface Manual 
606 Initializing with POKEs 

902 Printer Interfacing 

001 Receiving Lower Case Characters in Terminal Mode 
004 Screen Echo During Output 

007 Software Terminal Mode Entry 

093 Speeding Up the Communications Interface 


NUMERIC. GISTING 


Doc Issue Date Previous Date Pages 
001 DOT 181 - 1 
002 NOV 19 81 Е 1 
993 MAY 21 82 - 1 
gpa DEC 14 81 - i 
095 NOV- 317-81 = 1 
806 MAY 21-82 - 1 
607 JUL 2582 - 1 
098 JUL: 12:82 - 3 
01 JUL.12 92 - 3 
011 ALG 25 82 - 2 
99¢ APR 26 82 OCT i41 491 1 
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RECEIVING LOWER CASE CHARACTERS IN TERMINAL MODE 


The lower case information on page 17 of the manual is only effective in 
terminal mode. To get the lower case characters to be displayed in inverse 
you need to: 


POKE 1784+slot,224 
IN? slot 
ctrl-A ctrl-F 


Apples with lower case display capability can receive true ASCII by: 
POKE 1784+slot,@ 


IN? slot 
ctrl-A ctrl-F 
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PRINTER INTERFACING 


The Communications Interface was not designed to drive a printer and a 
driver routine is required to use it with most printers. The Printer 
Driver on page 31 of the Communications Interface manual is required when 
the printer requires a linefeed after a Carriage Return. It was written 
when the only available DOS was version 3.1. That’s why it doesnt work 
with DOS 3.2 or DOS 3.3. It/s easy to fix it, just load the routine into 
memory, type POKE 845,110, and save the routine to tape or disk using the 
instructions in the manual. 


You can also modify the Printer Driver routine to print at 110 baud for 


slower printers. All you have to do is type POKE 862,82: РОКЕ 818,82 and 
save the routine as before. 


TAB does not work properly with this interface. The Integer Basic version 
is limited to 40 columns and an Applesoft ТАВ(20) will sometimes output 29 
spaces instead of going to column 29. Here is a fix that will work with 
either Basic: 


19 PRINT А$;: POKE 36,33: PRINT "THERE" 
HI THERE 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, inc. 


AS Aa a ee ee eee ee ee eee Р c — ee OEE ee ee eee 


ња а а ee ee ee m — ee ee es eee ee ee A re Me eee ee ee ee eee — — = ee — — — —— — 


SPEEDING UP THE COMMUNICATIONS INTERFACE 


There are instructions in the back of the Communications Interface Manual 
for modifying it to operate a speeds in excess of 300 baud. If you perform 
one of these modifications the card will still have two speeds. The 
default speed will be the higher of the two availaible speeds. The lower 
speed will be 1/4 of the higher speed and can be used by following the 
instructions in the manual for operation at 110 baud. 


4800 BAUD OPERATION 


The modification for 4800/1200 baud in the manual is missing a wire. Add 
a wire from pin 15 of Al to pin 15 of A2. Chip АЁ still isn't required. 


9600 BAUL OPERATION 


The Communications Card can be modified to operate at 9699 baud. First 
perform the 4800/1260 baud modification. Then cut the trace from Al pin 2 
to pin 38 of the edge connector and wire it to pin 37 instead. The default 
speed for the card is now 9608 baud. 


This modification won’t work on newer versions of the Communications Card 
with gold plated edge connectors because there isn't any connector for 


pin 37. 
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SCREEN ECHO DURING OUTPUT 


Ihe Communications Interface will normally echo whatever is sent out 
through the interface to the video monitor. The video echo can be stopped 
by fooling the interface into thinking that it's in full duplex terminal 
mode. The following program will demonstrate. 


19 SLOT = 2 
20 PRINT CHRS(4);"PRÉ SLOT" 
38 PRINT 


46 РОКЕ 1912 + SLOT,145 

50 PRINT "THIS WON^T ECHO" 
690 POKE 1912 + SLOT,11 

76 PRINT "THIS WILL ECHO" 
90 PRINT CHRS(4);"PR# f" 
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APPLESOFT AND DATAMOVER 


DATAMOVER will not work with Applesoft. It will require a complete re-write 
of the program. Applesoft programs can be sent to another Apple, by adding 
the following lines to your program and running it. 


Ø SPEED = 198 


1 SLOT = 2 

2 PRINT СНВ$(4); "РЕЙ"; SLOT 
3 PRINT "FP" 

4 LIST 6- 

5 PRINT CHRS(À4); "PRÉ";SLOT 
6 REM YOUR PROGRAM 


Receiving End: do IN#2 only (do not go into terminal mode) 
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INITIALIZING WITH POKES 


Neither the РЕ? nor IN# commands in Applesoft and Integer Basic initialize 
the Communications Interface. This can cause problems for the user who 
needs to modify the parameters of the interface for his application. Не 
must sead a character through the Communications Interface before poking in 
the new parameters. The following POKEs will initialize the memory 
locations used by the Communications Interface. Please refer to the manual 
for more ínformation on what each POKE will do. Replace the letter "s" in 
the list with the slot number in which the interface is installed. 


10 POKE 1784+s,32 lower case, page 17 
20 POKE 1912+5,0 video echo, page 17 
30 POKE 20404s,17 STAT, page 27 


40 POKE -16242+s*16,3 reset АСТА, page 27 
50 POKE -16242+s*16,17 status, page 27 


Ihe next list of POKEs will replace the PR# and IN# commands. These POKEs 
must be used to benefit from the previous POKEs. The CALL 1992 should be 
used if you will be doing DOS commands while the interface is enabled. 
However, if speed is of the essence, don't use the CALL 1902 until after 
the data transfer is complete since DOS slows down 1/0. These POKEs must 
all be on one command line separated by colons to work in command mode. 
They can have separate line numbers in a program. 


60 POKE 54,5 PR#s 
7) РОКЕ 55,192+s 
30 POKE 56,7 IN#s 


98 POKE 57,192+s 
100 CALL 1992 


The normal way to reset the I/O to the Apple video and keyboard is: 


909 DS = CHRS (4): REM CTRL-D 
918 PRINT DS; "PRÉ" 
928 PRINT DS;"IN*p" 


However, this will only work after a PRINT and will be ignored after a GET 
or PRINT terminated with a comma or semicolon. To avoid having to do an 
extra PRINT you can use: 


900 CALL -375 : REM THIS IS IN#Ø 
916 CALL -365 : REM THIS IS PRÉ 
920 CALL 1002 : REM THIS RECONNECTS DOS 


SPECIAL NOTE: Don’t allow echoing to the Apple's video while sending 


information to the interface. Your program or variables will suffer if you 
don^t disable the video output for lines more than 40 characters long. 
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SOFTWARE TERMINAL MODE ENTRY 


The following Basic program will initialize the Communication Interface and 
enter into it’s terminal mode. This is the same as an IN#2 
<control-A><control-F>. The Basic program can set up non-standard parity 
options and even perform automatic sign-on functions before entering 
terminal mode. 


19 SLOT = 2 

26 ST = 17: REM This is the status from page 27. 
30 CN = 192 + SLOT ' 

40 NO = 16 * SLOT 

50 POKE 2046,CN 

60 POKE 1784 + SLOT,32 

70 POKE 1912 + SLOT,ST 

80 POKE 2949 + SLOT,ST 

99 POKE 16242 + №,3 

109 POKE 16242 + N@,ST 

110 POKE 768,72: POKE 769,72: POKE 778,72 

120 POKE 771,169: POKE 772,152 

130 POKE 773,160: POKE 774,192 + SLOT 

142 POKE 775,162: POKE 776,16 * SLOT 

150 POKE 777,76: POKE 778,165: POKE- 779,192 + SLOT 
100 CALL. 768 

170 REM NOW IN TERMINAL MODE... 
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DIRECTLY CONTROLLING THE 6850 АСТА 


The Communications Interface uses an ACIA (Asynchronous Communications 
Interface Adapter) to automatically perform the serial transfers with an 
external device. The ACIA contains 4 registers that control data flow 
between the Apple and the external device. There are two pairs of 
registers and each pair has a single address in the Apple. In the 
following discussion, all addresses will be calculated for siot 2. The 
addresses can be converted to another slot with the following formula. 


New Address = Old Address + (New Slot - 2) * 16 


So, $СОАЕ in slot 2 becomes $CØ9E for slot 1. 


The status/control register is at $СФАЕ. Reading from SCÓAE yields the 
status of the АСТА (new data in?, able to write?), and writing to SCOAE 
modifies the Operation of the АСТА (baud rate, data bits, stop bits, 
paritv). The tables below are a summary of what the registers control. 
Refer to the Motorola Semiconductors Data Sheet for the MC6850 for complete 


details. 


READ FROM STATUS REGISTER (SCÓAE) 


0 Receive Data Register Full 
1 Transmit Data Register Empty 
2 -Data Carrier Detect 
А -С1еаг to Send 
4 Framing Error 
2 Receiver Overrun 
6 Parity Error 
7 Interrupt Request 
(Continued) 
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2) Writing a program to control the data flow from the remote device with 
XON (control S) and ХОРЕ (control 9). The strategy is to recieve cata 
until the program's memory buffer is almost full and transmit an su»: to 
halt the data flow. Process the data and transmit an XON to resume tne 
transfer. Not all external devices understand XON/XUFF handshaking. Be 
sure to check your device. 


When attempting to use a remote terminal from Applesoft, all of the output 
will be printed on one line of the terminal”s screen. The solution to this 
problem is to use the Com Card Print routine on page 28 of the 
Communications Interface Card manual. If you are using DOS 3.2 or later 
you must modify this routine with a POKE 845,110 before saving it to disk. 


Modifying the default parameter settings on the Communications card is 
described on page 27 of the Communications Interface Manual. but please 
note that the PRés and IN#s commands do not initialize the interface, they 
only reset the 1/0 vectors. It's the first character through the interface 
that loads the default parameters. So be sure to PRINT or INPUT at least 
one character before doing the POKES. 


LA DS = CHRS (4) 
20 PRINT 03; "РАНО" 


Р 
д 
Q PRINT 
Ü 


PONE “27 G4 SLOT 


£ ua in r? 


A Basic program can check the АСТА to see if there is any new data in the 
Receive Data kezister. The following program fragment will loop until a 
character is received. When it finds the character it branches to line 50. 


mA жа. 0) 


Lu iul = n 

oy A = PEEK (49294 + SLOT * 16) 

30 [Е Ara. <> INI A472) THEN ЭВ 

4d GOTO 20: REM NO SEW CHARACTERS 


5 REM NEW CHARACTER AVAILABLE 
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WRITE TO CONTROL REGISTER (SCPAE) 


0-1 Baud Rate 
Ø - Unstable at about 1209 baud 
1 - 300 baud 
2 - 116 baud 
3 - Reset the ACIA 
2-4 Word Control Bits 
Ø — 7 bits + Even Parity + 2 Stop Bits 
1 - 7 bits + Odd Parity + 2 Stop Bits 
2 - 7 bits + Even Parity + 1 Stop Bit 
3 - 7 bits + Odd Parity + 1 Stop Bit 
4 - 8 bits + 2 Stop Bits 
5 - 8 bits + 1 Stop Bit 
6 - 8 bits + Even Parity + 1 Stop Bits 
7 - 8 bits + Odd Parity + 1 Stop Bits 
5-6 Transmitter Control Bits 
Q - -RTS = low, Transmitting Interrupt Disabled 
1 - -RTS = low, Transmitting Interrupt Enabled 
2 - -RTS = high, Transmitting Interrupt Disabled 
3 - -RTS = low, Transmits a Break level on the 


Transmit Data Output. Transmitting 
Interrupt Disabled 
/ Receive Interrupt Enable Bit 
@ - No interrupts from receiver section of АСТА 
Е = Iuterrupt on: 
Receive Data Register Full 
Overrun, or 
A low to high transition on Data Carrier 
Detect 


The data register is located at $CÓAF. A read from SC)Ar yields the data 
that has been recieved from the external device. A write to $CMAF buffers 
the data and initiates it/s transmission. Writing or reading to the data 
register automatically resets the АСТА status. 


An Apple ][ will lose data whenever it is forced to ignore the 
Communications Interface to either process the incoming data or write it to 
an I/O device like a disk drive or printer. 


The solution to this problem is to buffer the incoming data. You can do 
this by 


1) Requesting fixed size blocks of data from the remote machine - Reading 
in all of one block and processing it before requesting the next one. 


(Continued) 
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CARRIAGE RETURN DELAY 


INTRODUCTION 


This program introduces a variable tíme delay after printing a carriage 
return character. The delay gives slower printers time to return to the 
left margin without missing characters. DOS is required to use this 
modification. 


SOFTWARE ENTRY 


First you must decide which slot the interface will go in and enter the 
delay program. The program is customized for this slot number and won't 
work if used with a different configuration. Enter the program using the 
values from the table for words in brackets, < >. 


The delay is measured in tenths of a second and entered in hexadecimal. 
Hence 5 is 1/2 second and А is one second. The usual default value is 5. 


Enter the monitor with CALL -155 and type 


390:A9 «SLOT? 
:69 CP 

:8D AC #3 

:20 95 FE 

:А9 86 

:20 ED FD 

:А9 АА 

:85 36 

:А9 93 

585.37 

:4C EA 93 

:20 05 Cl 

:C9 8D 

:DO PE 

:A9 #5 (DELAY) 


:A9 C2 
:20 AB FC 


:E9 fl 
:DÓ FS 


To check your typing for the first twenty lines, type 


39PL 


(Continued) 
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100 PRINT DS;"BLOAD CR DELAY” : CALL 912 


assuming that 0$ is a control-D. 


If you want to switch back to the video monitor for output type 
PR#® 
or in a program enter 


200 PRINT DS;"PRÉQ" 


Then to reconnect the printer, all that is required 1$ 
CALL 938 
or fron a program 


300 CALL 938 


NOTES 
The delay can be adjusted from BASIC with: 
POKE 946 ,<DELAY> 


The delay in this case is in decimal. Then BSAVE the program again. 
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and compare your listing to the one below for slot 1. Type another L to 
list the last two lines. The information below the RTS instruction isn’t 
important. 


)39d- A9 91 LDA #501 
B392- #9 CO ORA #SC@ 
3394- 8р AC #3 STA S$@3AC 
A337- 2695 FE JSR | SFE95 


gode A9 BØ LDA 1588 
Pdo 20. BDGED JSR SFDED 
IES A9 AA LDA SAS 
23А1- 85 36 STA $36 
3A3- A9 ЮЗ LDA #503 
D3A5- 09 Uy STA 537 


ALAT- АС EA #3 JMP SÓ3EA 
ФЗАА- 20 05 Cl JSR 80105 


Db3Az= C9 8D СМР #88D 
АЗАЕ- 00 BE BNE SO3BA 
Atet- A9 p5 LDA #505 
dile: 08 PHA 

Cone 49 C2 LDA #SC2 
Aise- 20 А8 FC JSR ЅЕСАВ 
iia 68 PLA 

Jija- 79 91 SBC #501 
Dis- DØ F5 BNE SÖ3AF 
ALBE- 60 RTS 


“oy return: to BASIC with 3D@G 


tuc Praia eeu, IO DISK 


^ne orogram nust be in memory before the printer can be used with the 
delav. Save the program by typing 


BSAVE CR DELAY, AS399, LS2F 


SOL IHE - PRINTER 


The first time you want to use the printer you must load the program and 
initialize the interface. From command mode type 


оАо CR DELAY 
CALL 912 


This may be done from a program by entering 


(Continued) 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


E —X X чаши GE: mei р er were рь GE ce cy шин — y Р ee — a ce ii p нь А ee eee ee ee eee ищи ‘| 


ce ec ee ee «ЫЬ CUP aum ud Juin ee ee ey a ee es auum ee mm A ei ee c EN Н ando ee eee eee ee ЧЕ UR A ee ee C Rom р 


ECHO SUPPRESSION 


The Communications Interface allows a Basic program to communicate with 
another computer. Normally, the information comming in from the other 

computer will be displayed on the screen, which isn't always desirable. 
This routine will disable the echo feature. 


First decide which slot the interface will go in before typing in the 
software patch. The patch is customized for this slot number and won't work 
if used with a different coufiguration. Enter the patch using the values 
from the table for words in brackets, < >. 


SLOT 1 2 3 4 5 6 7 
STAT 9E AE BE CE DE EE FE 
DATA oF AF BF CF DF EF EP 


Enter the monitor with CALL -155 and type 


ЗАЙ: 49 3 

3A2:8D <STAT> C$ 
3A5:A9 11 

3A7:8D «STAT? Cf 
3AA:A9 B5 

3AC:85 38 

3AE:A9 03 

3B9:85 39 

3B2:4C EA 93 
385:91 28 

3B7:AD <STAT> C 
ЗВА: 16 FB 

ЗВС: АВ <DATA> CÓ 
3BF:909 86 

3C1:69 

3C2:D0 09 09 99 00 


To check your typing, type 
3APL 


and compare your listing to the one for slot 2 on the next page. 


(Continued) 
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ERRATA ~ COMMUNICATIONS INTERFACE MANUAL 
030-00908-91 


Page 17 

The lower case info only applies to TERMINAL modes and the method to use it 
isn^t obvious. Also, the POKE 1784+n,16@ causes the lower case to be 
displayed as FLASHING. POKE 1784+n,224 will cause lower case to be 
INVERSE. 


Page 24 


DATAMOVER will not work with Applesoft. It will require a complete 
re-write of the program. 


Page 28 
The Com Card Print Routine was written when the only available DOS was 
version 3.1. POKE 845,110 will fix it to work with DOS 3.2 or DOS 3.3. 


Page 36 
The modification for 4899 baud in the manual is missiug a wire. Add a wire 
from pin 15 of Al to pin 15 of А2. Chip Al is still not required. 
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93A0- А9 93 LDA #503 
03A2- 8D АЕ CÓ STA  SCÓAE 
0345- А9 11 LDA #$11 
03A7- 8D АЕ CÓ STA $СӰАЕ 
ОЗАА- 49 BS LDA #585 
Q3AC- 85 38 STA $38 
Q3AE- А9 P3 LDA #503 
03В#- 85 39 STA $39 
0382- 5С EA #3 JMP 503ЕА 
03B85- 91 28 STA ($28),Y 
Q3B7- AD АЕ CÓ LDA . SCÓAE 
Ö3BA- 19 FB BPL $89387 
Ö3BC- AD AF CP LDA . SCÓAF 
ОЗВЕ- 09 86 ORA #580 
03cl- 6f RTS 

03c2- BB BRK 

03c3- #0 BRK 

B3C4- pø BRK 

03c5- 00 BRK 

83coó- #0 BRK 


Sow return to basic with 3DØG. 


SAVING THE PATCH TO DISK: 


The patch must be in memory before the interface can be used with the echo 
supression feature. Save the patch by typing BSAVE PATCH, А$3А@, 1521 


USING THE PATCH: 


The first time you want to use the interface you must load the patch and 
initialize the interface. This can be done from a program with 


100 PRINT DS;"BLOAD PATCH": CALL 928 
and 

208 PRINT DS; "IN#O" 
will re-enable the Apple keyboard. 


Since the patch is already in memory, all that is needed to reconnect the 
interface is 


300 CALL 938 
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INDEX TO DIET ANALYSIS 


ALPHABETIC LISTING 
Doc Title 


091 Adding Foods 


NUMERIC LISTING 


Doc Issue Date Previous Date Pages 


GOL JUL 12 82 - 1 
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ADDING FOODS 


Unfortunately, there is no provision in Diet Analysis to add foods. 
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iNDEX TO DOS 


ALPHABETIC LISTING 


Doc Title 

$35 Append 

026 Basic Entry Vectors for DOS 

906 BASICS Diskette 

998 Binary File Address and Length Parameters 

$28 Booting Without a Disk ín the Drive 

#15 BRUN HELLO? 

994 Cassette Applesoft and DOS 

838 Chain 

$24 Current Status 

041 Disk Full Error 

$37 Disk Layout 

095 DOS 3.1 and the Auto-Start ROM 

$29 DOS 3.3 and the Language Card 

#07 DOS, the IN# Command, and the PR# Command 

#16 DOS and Interrupts (IRQ) 

012 DOS and the I/O Vectors 

$09 DOS Commands Being Ignored 

019 DOS Diskette Use 

023 DOS Text File Format 

$19 DOS vs Applesoft Hi-Res 

803 Dumping DOS Text Files 

999 Errata - The DOS Manual 

946 Error Handling | 
042 ЕХЕС | 
914 Hidding Machine Language Routines Above the DOS Buffers 

$13 INTBAS and FPBAS on the Master Diskette 

018 Machine Language Access to DOS | 
911 Muffin 

922 Nonstop Catalog 

917 Not Direct Command Error 

$38 Numeric Storage 

033 Phone List - Printer Problems 

$43 Random Access Files | 
944 Reading Pascal Diskettes | 
$32 Renumber and the FRE (9) Command 

031 Renumber and the MAXFILES Command 

627 Renumber Fix 

#01 Saving Room when BSAVEing Hi-Res 

892 Speeding Up I/O 

029 The Program Applesoft on the DOS 3.3 Master Diskette 

021 Transferring DOS Text Files to a Printer 

036 Volume Nunber 

025 Which Version of DOS is This? 
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INDEX TO DOS 


ALPHABETIC LISTING 


Doc Title 

035 Аррепа 

026 Basic Entry Vectors for DOS 

$06 BASICS Diskette 

9908 Binary File Address and Length Parameters 
928 Booting Without a Disk in the Drive 

$15 BRUN HELLO? 

$04 Cassette Applesoft and DOS 

030 Chain 

024 Current Status 

037 Disk Layout 

665 DOS 3.1 and the Auto-Start ROM 

020 DOS 3.3 and the Language Card 

097 DOS, the IN# Command, and the PR? Command 
016 DOS and Interrupts (IRQ) 

$18 DOS and Machine Language Routines 

012 DOS and the I/O Vectors 

609 DOS Commands Being Ignored 

010 DOS Diskette Use 

023 DOS Text File Format 

G19 DOS vs Applesoft Hi-Res 

003 Dumping DOS Text Files 

999 Errata - The DOS Manual 

014 Hidding Machine Language Routines Above the DOS Buffers 
$13 INTBAS and FPBAS on the Master Diskette 
011 Muffin 

022 Nonstop Catalog 

017 Not Direct Command Error 

038 Numeric Storage 

033 Phone List - Printer Problems 

$32 Renumber and the FRE (2) Command 

$31 Renumber and the MAXFILES Command 

027 Renumber Fix 

901 Saving Room when BSAVEing Hi-Res 

092 Speeding Up I/O 

029 The Program Applesoft on the DOS 3.3 Master Diskette 
021 Transferring DOS Text Files to a Printer 
636 Volume Number 

025 Which Version of DOS is This? 
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SAVING ROOM WHEN BSAVING HI-RES | 


One sector сап be saved on the disk for each Hi-Res screen that you save if | 
you save it with a length of $1FF8 instead of $2000. The reason is that 

the starting address and length of the binary file are stored as the first 

4 bytes of the file. Saving a file with a length of $2000 actually stores 
S2004 bytes and requires another sector. The syntax will now be: 


19 DS = CHRS(4) 


199 PRINT DS;"BSAVE HIRES-1, AS29909, LSIFFS" 
209 PRINT DS;"BSAVE HIRES-2, AS4PPP, LSIFFS" 
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SPEEDING UP I/O 


All Apple input and output goes through DOS if DOS is booted. This can 
slow down transactions to the point of losing data when communicating with 
fast devices. Some applications will work if the slight time delay that 
DOS introduces is removed from the transaction. In the following example, 
line 10 disconnects DOS, lines 20 and 39 are the I/O transaction, and line 
40 reconnects DOS. There is more information on this subject starting on 
page 199 of The DOS Manual (A2L$936). 


10 IN# 1: PR#¥ 1 

20 PRINT "CONTROL STRING" 
38 INPUT "";А$ 

40 IN f: PRÉ Ø : CALL 16092 
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DUMPING DOS TEXT FILES 


There is no direct way to transfer DOS text files to a printer. This 
program will move text files to any slot desired by the user. It doesn't 
strip leading spaces or limit you to 239 character strings. 


100 КВ = -16384: KBS = -16368 

110 DS = CHR$(4) 

129 HOME 

130 INPUT “TEXT FILE NAME? ";FILES 
148 PRINT 

159 INPUT "DESTINATION SLOT? ";SL 
160 ON ERR GOTO 500 

170 PRINT DS;“OPEN ";FILES 

180 PRINT 09$; "READ ";FILES 

190 GET AS 

200 PR# SL 

210 PRINT AS; 

220 IF PEEK (KB) <> 155 THEN 196 
230 POKE KBS,Ó 

500 PRÉ f 

510 CALL 16092 

528 PRINT 

539 PRINT DS;“CLOSE ";FILES 

549 END 


The program can be stopped before the end of the file has been reached by 
pressing the escape key. 
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CASSETTE APPLESOFT AND DOS 


DOS has provisions for using a RAM based version of Applesoft. This 
Applesoft was distributed on early DOS diskettes and on cassettes. If you 
have an Applesoft cassette, there are three things that need to be done to 
use it with DOS. 


Boot DOS 


LOAD the Applesoft tape 
SAVE APPLESOFT 


The program APPLESOFT will have to be saved on the diskette in the drive 


whenever any Applesoft program is loaded. Use the FP command instead of 
RUN APPLESOFT. See pages 28 and 29 of the DOS manual for more information 
on the FP command. 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, Inc. 


em a ru an ee ee Mm amm ee CD "ДЕШ чо А ee a am ee OS Se See ee ee um um eee eae -o — — P se ee le ee o Ч 


DOS 3.1 AND THE AUTO-START ROM 


DOS 3.1 predates the Auto-Start ROM. It doesn't know about the reset 
vector and start-up byte. So, the system will re-boot the disk if RESET is 
pressed after booting with DOS 3.1, The reset vector can be modified by 


the HELLO program to re-enter the current Basic after the RESET key is 
pressed . Add this line to the HELLO program: 


10 POKE 19010,2908: POKE 1011,3: POKE 19012,1060 
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BASICS DISKETTE 


ce The BASICS diskette that ships with DOS 3.3 and the Language System is a 


(^ 


Pascal diskette that will boot a 13 sector diskette in a 16 sector drive. 
It has a Pascal directory that can be seen from the Pascal Filer but not 
from DOS. 


The DOS 3.3 COPY and COPYA programs will successfully copy the BASICS 
diskette. Pascal users can copy the BASICS diskette with the Filer like 
any other Pascal diskette. 


The BASICS diskette MUST boot from slot 6, drive 1 because ít is a Pascal 
diskette. 


The BASICS diskette will not allow all 13 sector diskettes to boot. Some 
software protection schemes do not accept that form of boot. Try using 
the BOOT13 program on the DOS 3.3 master diskette instead. 
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